mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Merge commit 'origin/master' into vm

Browse source 
Conflicts:

	.gitignore
	guile-tools.in
	srfi/srfi-19.scm
This commit is contained in:
Andy Wingo 2009-01-12 21:36:39 +01:00
commit c32929d14d
89 changed files with 2412 additions and 4369 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/srfi/srfi-19.scm
View file

@ -1403,7 +1403,7 @@
(define (priv:string->date date index format-string str-len port template-string)
(define (skip-until port skipper)
(let ((ch (peek-char port)))
(if (eof-object? port)
(if (eof-object? ch)
(priv:time-error 'string->date 'bad-date-format-string template-string)
(if (not (skipper ch))
(begin (read-char port) (skip-until port skipper))))))