* changed implementation of guardians in ikarus.guardians.ss

2007-09-01 01:12:42 -04:00 · 2007-09-01 01:12:42 -04:00 · e5f7329d4d
parent 4daea5e4e0
commit e5f7329d4d
2 changed files with 1 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/ikarus.guardians.ss
+++ b/src/ikarus.guardians.ss
@ -20,5 +20,5 @@
                    (set-cdr! x #f)
                    y)))]
          [(obj) 
-           (foreign-call "ikrt_register_guardian" tc obj)
+           (foreign-call "ikrt_register_guardian_pair" (cons tc obj))
           (void)])))))