* compile-time-core-eval is gone
This commit is contained in:
parent
96b15b3d74
commit
c780c192a1
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -5290,15 +5290,6 @@
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
(compile x)))
|
(compile x)))
|
||||||
|
|
||||||
(primitive-set! 'compile-time-core-eval
|
|
||||||
(make-parameter
|
|
||||||
(lambda (x)
|
|
||||||
(parameterize ([current-expand (lambda (x) x)])
|
|
||||||
(compile x)))
|
|
||||||
(lambda (f)
|
|
||||||
(unless (procedure? f)
|
|
||||||
(error 'compile-time-core-eval "~s is not a procedure" f))
|
|
||||||
f)))
|
|
||||||
|
|
||||||
))
|
))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue