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

* added a "current-primitive-locations" primitive that returns an 

alist mapping primitives to their locations (gensyms).
This commit is contained in:
Abdulaziz Ghuloum 2007-05-04 03:29:27 -04:00
parent a3aef19781
commit b74108f21c
3 changed files with 3 additions and 0 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

@ -5203,6 +5203,8 @@
(primitive-set! 'eval-core
(lambda (x) ((compile-core-expr x))))
(primitive-set! 'current-primitive-locations
(make-parameter '()))
))

1
src/library-manager.ss
View File

@ -440,6 +440,7 @@
[list*->code* list*->code*-label (core-prim . list*->code*)]
[install-library install-library-label (core-prim . install-library)]
[eval-top-level eval-top-level-label (core-prim . eval-top-level)]
[current-primitive-locations current-primitive-locations-label (core-prim . current-primitive-locations)]
;;; record/mid-level
[record? record?-label (core-prim . record?)]
[make-record-type make-record-type-label (core-prim . make-record-type)]