[patch] small SRFI-69 fix

[patch] small SRFI-69 fix

[Stephen Compall]

[-- Attachment #1.1: Type: text/plain, Size: 1340 bytes --]

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

[-- Attachment #1.2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 189 bytes --]

[-- Attachment #2: Type: text/plain, Size: 143 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel

Re: [patch] small SRFI-69 fix

[Ludovic Courtès]

Hi,

Stephen Compall <s11@member.fsf.org> writes:

> I don't see these files in HEAD so they are diffed against garbage that
> should match what I submitted earlier.

For some reason, `tla-cvs-sync' had not added them to CVS (sigh).  That
should be fixed now, and the patch is applied, too.

Thanks!

Ludovic.



_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel