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

* the "expand" primitive is gone.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-03 01:22:33 -04:00
parent 4f8d8fa212
commit 11e6d6518f
3 changed files with 4 additions and 5 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.

8
src/libcompile.ss
View File

@ -5187,10 +5187,6 @@
ls*)]) ls*)])
(car code*))))) (car code*)))))
(define (compile-expr->code x)
(compile-core-expr->code
(parameterize ([assembler-output #f])
(expand x))))
(define compile-core-expr-to-port (define compile-core-expr-to-port
(lambda (expr port) (lambda (expr port)
@ -5213,6 +5209,10 @@
#!eof junk #!eof junk
(define (compile-expr->code x)
(compile-core-expr->code
(parameterize ([assembler-output #f])
(expand x))))
(primitive-set! 'compile (primitive-set! 'compile
(lambda (x) (lambda (x)

1
src/library-manager.ss
View File

@ -404,7 +404,6 @@
[eval-core eval-core-label (core-prim . eval-core)] [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)]
[expand expand-label (core-prim . expand)]
[fasl-write fasl-write-label (core-prim . fasl-write)] [fasl-write fasl-write-label (core-prim . fasl-write)]
[new-cafe new-cafe-label (core-prim . new-cafe)] [new-cafe new-cafe-label (core-prim . new-cafe)]
[command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)] [command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)]