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

fix bug in collect

Browse source 
* module/ice-9/deprecated.scm (collect): Fix bug.
This commit is contained in:
Andy Wingo 2010-06-14 10:46:02 +02:00
parent bb0c815741
commit 1772145c02
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/deprecated.scm
View file

@ -565,5 +565,5 @@ better yet, use the repl from `(system repl repl)'.")
(syntax-case x () (syntax-case x ()
((_) #''()) ((_) #''())
((_ x x* ...) ((_ x x* ...)
#''(let ((val x)) #'(let ((val x))
(cons val (collect x* ...))))))) (cons val (collect x* ...)))))))