* makefile now calls (current-primitive-locations (lambda (x) #f))

on startup.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-04 06:11:31 -04:00
parent bc4e23ebbe
commit 75bfaf49a0
3 changed files with 2 additions and 2 deletions

Binary file not shown.

View File

@ -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))))

View File

@ -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