Re: SRFI 19

David Van Horn <[email protected]> Fri, 12 Mar 2004 12:57:41 -0500

Newsgroups	gmane.lisp.scheme.plt.schematics
Message-ID	<[email protected]>

David Van Horn wrote:
> Attached are a patch for 19.ss and time.ss.  19.ss now provides the 
> SRFI-19 names as described in the srfi document, and 19/time.ss provides 
> srfi: prefixed identifiers where name clashes with the mzscheme language 
> occur.

There was a small, but serious error in my patch for time.ss.  The attached 
patch fixes it.  (Fransisco, would you apply this for me?)

Thanks,
David

patch2-time.ss (text/plain, 2.1 KB)

Index: time.ss
===================================================================
RCS file: /cvs/plt/collects/srfi/19/time.ss,v
retrieving revision 1.4
diff -C2 -r1.4 time.ss
*** time.ss	11 Mar 2004 14:04:03 -0000	1.4
--- time.ss	12 Mar 2004 17:57:04 -0000
***************
*** 269,275 ****
    (define (time-second t)     (tm:time-ref t 2))
    
!   (define (set-time-type! t)       (tm:time-set! t 0))
!   (define (set-time-nanosecond! t) (tm:time-set! t 1))
!   (define (set-time-second! t)     (tm:time-set! t 2))
    
    (define (copy-time time)
--- 269,275 ----
    (define (time-second t)     (tm:time-ref t 2))
    
!   (define (set-time-type! t type)     (tm:time-set! t 0 type))
!   (define (set-time-nanosecond! t ns) (tm:time-set! t 1 ns))
!   (define (set-time-second! t s)      (tm:time-set! t 2 s))
    
    (define (copy-time time)
***************
*** 603,614 ****
    (define (date-zone-offset d) (tm:date-ref d 7))
    
!   (define (tm:set-date-nanosecond! d)  (tm:date-set! d 0))
!   (define (tm:set-date-second! d)      (tm:date-set! d 1))
!   (define (tm:set-date-minute! d)      (tm:date-set! d 2))
!   (define (tm:set-date-hour! d)        (tm:date-set! d 3))
!   (define (tm:set-date-day! d)         (tm:date-set! d 4))
!   (define (tm:set-date-month! d)       (tm:date-set! d 5))
!   (define (tm:set-date-year! d)        (tm:date-set! d 6))
!   (define (tm:set-date-zone-offset! d) (tm:date-set! d 7))
    
    ;; gives the julian day which starts at noon.
--- 603,614 ----
    (define (date-zone-offset d) (tm:date-ref d 7))
    
!   (define (tm:set-date-nanosecond! d ns) (tm:date-set! d 0 ns))
!   (define (tm:set-date-second! d s)      (tm:date-set! d 1 s))
!   (define (tm:set-date-minute! d m)      (tm:date-set! d 2 m))
!   (define (tm:set-date-hour! d h)        (tm:date-set! d 3 h))
!   (define (tm:set-date-day! d day)       (tm:date-set! d 4 day))
!   (define (tm:set-date-month! d m)       (tm:date-set! d 5 m))
!   (define (tm:set-date-year! d y)        (tm:date-set! d 6 y))
!   (define (tm:set-date-zone-offset! d i) (tm:date-set! d 7 i))
    
    ;; gives the julian day which starts at noon.