mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 05:20:16 +02:00
Code Activity

(add-duration): Fix bug: Call `add-duration!' w/ two args.

Browse source 
Thanks to Alex Shinn.
This commit is contained in:
Thien-Thi Nguyen 2001-08-25 18:40:11 +00:00
parent e4d1c1eabd
commit afb47f6d45
1 changed files with 53 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

4
srfi/srfi-19.scm
View file

@ -501,7 +501,7 @@
(define (add-duration t duration) (define (add-duration t duration)
(let ((result (copy-time t))) (let ((result (copy-time t)))
(add-duration! result))) (add-duration! result duration)))
(define (subtract-duration! t duration) (define (subtract-duration! t duration)
(if (not (eq? (time-type duration) time-duration)) (if (not (eq? (time-type duration) time-duration))
@ -1549,3 +1549,5 @@
'string->date 'string->date
'bad-date-format-string 'bad-date-format-string
(list "Incomplete date read. " newdate template-string))))) (list "Incomplete date read. " newdate template-string)))))
;;; srfi-19.scm ends here