Changeset 7864 in project for chicken/trunk


Ignore:
Timestamp:
01/22/08 23:52:14 (13 years ago)
Author:
felix winkelmann
Message:

fixed uses of time->string and seconds->string (no trailing newline)

Location:
chicken/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • chicken/trunk/NEWS

    r7839 r7864  
    1111- On sparc64 architectures more than 126 procedure arguments are allowed
    1212  [Thanks to Peter Bex]
     13- posix unit: "seconds->string" and "time->string" have now their trailing
     14  #\newline character removed. THIS IS A BACKWARD-INCOMPATIBLE CHANGE.
    1315
    14162.739

  • chicken/trunk/chicken-bug.scm

    r7017 r7864  
    3232  (print "\n--------------------------------------------------\n")
    3333  (print "This is a bug report generated by chicken-bug(1).\n")
    34   (print "Date:\t" (seconds->string (current-seconds)) "\n")
     34  (print "Date:\t" (seconds->string (current-seconds)) "\n\n")
    3535  (printf "User information:\t~s~%~%" (user-information (current-user-id)))
    3636  (print "Host information:\n")

  • chicken/trunk/manual/Unit posix

    r7036 r7864  
    940940
    941941Converts the local time represented in {{SECONDS}} into a string
    942 of the form {{"Tue May 21 13:46:22 1991\n"}}.
     942of the form {{"Tue May 21 13:46:22 1991"}}.
    943943
    944944==== seconds->utc-time
    … …  
    962962Converts the broken down time represented in the 10 element vector
    963963{{VECTOR}} into a string of the form {{"Tue May 21 13:46:22
    964 1991\n"}}.
     9641991"}}.
    965965
    966966

  • chicken/trunk/posixunix.scm

    r7784 r7864  
    17431743      (let ([str (ctime secs)])
    17441744        (unless str (##sys#error 'seconds->string "cannot convert seconds to string" secs))
    1745         str) ) ) )
     1745        (##sys#substring str 0 (fx- (##sys#size str) 1))))))
    17461746
    17471747(define time->string
    … …  
    17521752      (let ([str (asctime tm)])
    17531753        (unless str (##sys#error 'time->string "cannot convert time vector to string" tm))
    1754         str) ) ) )
     1754        (##sys#substring str 0 (fx- (##sys#size str) 1))))))
    17551755
    17561756(define (local-time->seconds tm)

  • chicken/trunk/posixwin.scm

    r7189 r7864  
    15761576      (let ([str (ctime secs)])
    15771577        (unless str (##sys#error 'seconds->string "cannot convert seconds to string" secs))
    1578         str) ) ) )
     1578        (##sys#substring str 0 (fx- (##sys#size str) 1))))))
    15791579
    15801580(define time->string
    … …  
    15851585      (let ([str (asctime tm)])
    15861586        (unless str (##sys#error 'time->string "cannot time vector to string" tm))
    1587         str) ) ) )
     1587        (##sys#substring str 0 (fx- (##sys#size str) 1))))))
    15881588
    15891589(define (local-time->seconds tm)
Note: See TracChangeset for help on using the changeset viewer.