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

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-12-13 12:27:37 +00:00
parent 2ae87f26a8
commit 70a4404429
4 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-69.scm
View file

@ -143,7 +143,7 @@ follow them."
(cond ((null? rest-list) (reverse! acc))
((keyword? (first rest-list))
(lp acc (cddr rest-list)))
(else (lp (cons (first rest-list) acc) (rest rest-list))))))
(else (lp (cons (first rest-list) acc) (cdr rest-list))))))
(define (guile-ht-ctor weakness)
"Answer the Guile HT constructor for the given WEAKNESS."