diff --git a/src/ikarus.boot b/src/ikarus.boot index ee050d1..647c3d9 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/libcompile.ss b/src/libcompile.ss index dc71867..8f15810 100644 --- a/src/libcompile.ss +++ b/src/libcompile.ss @@ -5279,8 +5279,6 @@ (refresh-cached-labels!)) (error 'current-primitive-locations "~s is not a procedure" p))]))) -(refresh-cached-labels!) - (primitive-set! 'eval-core (lambda (x) ((compile-core-expr x)))) diff --git a/src/makefile.ss b/src/makefile.ss index 82faf86..6d835f0 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -131,6 +131,8 @@ `(library (ikarus primlocs) (export) ;;; must be empty (import (scheme)) + (current-primitive-locations + (lambda (x) #f)) (install-library ',(gensym "system") ;;; id '(system) ;;; name