[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[patch] small SRFI-69 fix
From: |
Stephen Compall |
Subject: |
[patch] small SRFI-69 fix |
Date: |
Wed, 12 Dec 2007 15:59:46 -0600 |
I seem to have been operating for years under the assumption that SRFI-1
included `rest'.
I don't see these files in HEAD so they are diffed against garbage that
should match what I submitted earlier.
--- srfi/srfi-69.scm.~1~ 2007-12-01 13:50:24.000000000 -0600
+++ srfi/srfi-69.scm 2007-12-12 15:53:47.000000000 -0600
@@ -143,7 +143,7 @@
(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."
--- test-suite/tests/srfi-69.test.~1~ 2007-12-01 13:57:52.000000000 -0600
+++ test-suite/tests/srfi-69.test 2007-12-12 15:53:36.000000000 -0600
@@ -102,4 +102,7 @@
(and (= 1 (hash-table-size ht))
(lset= equal? '((b . 53)) (hash-table->alist ht)))))
+ (pass-if "can use all arguments, including size"
+ (hash-table? (make-hash-table equal? hash #:weak 'key 31)))
+
)
--
Our last-ditch plan is to change the forums into a podcast, then send
RSS feeds into the blogosphere so our users can further debate the
legality of mashups amongst this month's 20 'sexiest' gadgets.
--Richard "Lowtax" Kyanka
signature.asc
Description: This is a digitally signed message part
- [patch] small SRFI-69 fix,
Stephen Compall <=