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

* added eval-core procedure.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-03 00:10:13 -04:00
parent c780c192a1
commit f14ac302f4
3 changed files with 6 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.

5
src/libcompile.ss
View File

@ -5261,6 +5261,9 @@
(close-input-port ip) (close-input-port ip)
(close-output-port op)))) (close-output-port op))))
(define (compile-core-expr x)
(let ([code (compile-core-expr->code x)])
($code->closure code)))
(primitive-set! 'compile-core-expr-to-port compile-core-expr-to-port) (primitive-set! 'compile-core-expr-to-port compile-core-expr-to-port)
@ -5285,6 +5288,8 @@
(let ([proc ($code->closure code)]) (let ([proc ($code->closure code)])
(proc))))) (proc)))))
(primitive-set! 'eval-core
(lambda (x) ((compile-core-expr x))))
(primitive-set! 'eval (primitive-set! 'eval
(lambda (x) (lambda (x)

1
src/library-manager.ss
View File

@ -403,6 +403,7 @@
[compile compile-label (core-prim . compile)] [compile compile-label (core-prim . compile)]
[compile-core-expr-to-port compile-core-expr-to-port-label (core-prim . compile-core-expr-to-port)] [compile-core-expr-to-port compile-core-expr-to-port-label (core-prim . compile-core-expr-to-port)]
[eval eval-label (core-prim . eval)] [eval eval-label (core-prim . eval)]
[eval-core eval-core-label (core-prim . eval-core)]
[load load-label (core-prim . load)] [load load-label (core-prim . load)]
[assembler-output assembler-output-label (core-prim . assembler-output)] [assembler-output assembler-output-label (core-prim . assembler-output)]
[current-expand current-expand-label (core-prim . current-expand)] [current-expand current-expand-label (core-prim . current-expand)]