* removed import of (scheme) from ikarus.code-objects.ss

2007-05-06 17:59:32 -04:00
parent 891cde0e74
commit f8f4283886
2 changed files with 2 additions and 3 deletions
@@ -4,9 +4,8 @@
    make-code code? code-reloc-vector code-freevars
    code-size code-ref code-set! set-code-reloc-vector!)
  (import
-    (only (scheme) $fx< $fx>= 
-          $code? $code-reloc-vector $code-freevars $code-size
-          $code-ref $code-set! )
+    (ikarus system $fx)
+    (ikarus system $codes)
    (except (ikarus) make-code code? code-reloc-vector code-freevars
            code-size code-ref code-set! set-code-reloc-vector!))