[patch] small SRFI-69 fix

[Stephen Compall]

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