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

* current-expand is gone

This commit is contained in:
Abdulaziz Ghuloum 2007-05-03 00:17:53 -04:00
parent 260487b393
commit 097e430912
3 changed files with 1 additions and 9 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.

1
src/library-manager.ss
View File

@ -406,7 +406,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)]
[current-expand current-expand-label (core-prim . current-expand)]
[expand expand-label (core-prim . expand)] [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)]

9
src/libtoplevel.ss
View File

@ -15,16 +15,9 @@
(cadr x) (cadr x)
(chi-top-library x)))) (chi-top-library x))))
(primitive-set! 'current-expand
(make-parameter sc-expand
(lambda (f)
(if (procedure? f)
f
(error 'current-expand "~s is not a procedure" f)))))
(primitive-set! 'expand (primitive-set! 'expand
(lambda (x) (lambda (x)
((current-expand) x))) (sc-expand x)))
(let-values ([(files script args) (let-values ([(files script args)
(let f ([args (command-line-arguments)]) (let f ([args (command-line-arguments)])