Welcome to the CHICKEN Scheme pasting service

#905 added by mario-goulart on Tue Aug 28 16:14:15 2012

diff --git a/srfi-69.scm b/srfi-69.scm
index d8a2239..89f22c7 100644
--- a/srfi-69.scm
+++ b/srfi-69.scm
@@ -685,6 +685,7 @@
                                            (cons (cons (##sys#slot pare 0) (##sys#slot pare 1))
                                                  (copy-loop (##sys#slot bucket 1))))))) )])
         (##sys#setslot ht2 2 (##sys#slot ht 2))
+        (##sys#setslot ht2 10 (##sys#slot ht 10))
         ht2 ) ) ) )
 
 (define (hash-table-copy ht)
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which relatively recent Scheme report version does CHICKEN _not_ implement?
Visually impaired? Let me spell it for you (wav file) download WAV