* Addd (r6rs mutable-pairs) library.

2007-06-13 10:26:51 +03:00
parent 8cd99e6a2e
commit f3166040a0
2 changed files with 3 additions and 2 deletions
@@ -117,6 +117,7 @@
    [interaction (ikarus interaction)         #t]
    [r           (r6rs)                       #t]
    [syncase     (r6rs syntax-case)           #t]
+    [mutable-pairs (r6rs mutable-pairs)       #t]
    [cm          (chez modules)               #t]
    [$all        (ikarus system $all)         #f]
    [$pairs      (ikarus system $pairs)       #f]
@@ -237,8 +238,8 @@
    [pair?                   i r]
    [car                     i r]
    [cdr                     i r]
-    [set-car!                i]
-    [set-cdr!                i]
+    [set-car!                i mutable-pairs]
+    [set-cdr!                i mutable-pairs]
    [caar                    i r]
    [cdar                    i r]
    [cadr                    i r]