conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/libcompile.ss
View File

@ -5279,8 +5279,6 @@
(refresh-cached-labels!)) (refresh-cached-labels!))
(error 'current-primitive-locations "~s is not a procedure" p))]))) (error 'current-primitive-locations "~s is not a procedure" p))])))
(refresh-cached-labels!)
(primitive-set! 'eval-core (primitive-set! 'eval-core
(lambda (x) ((compile-core-expr x)))) (lambda (x) ((compile-core-expr x))))

2
src/makefile.ss
View File

@ -131,6 +131,8 @@
`(library (ikarus primlocs) `(library (ikarus primlocs)
(export) ;;; must be empty (export) ;;; must be empty
(import (scheme)) (import (scheme))
(current-primitive-locations
(lambda (x) #f))
(install-library (install-library
',(gensym "system") ;;; id ',(gensym "system") ;;; id
'(system) ;;; name '(system) ;;; name