* initializer of "expand" is also gone.

2007-05-03 01:23:54 -04:00 · 2007-05-03 01:23:54 -04:00 · bee47205bf
parent 11e6d6518f
commit bee47205bf
2 changed files with 0 additions and 4 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libtoplevel.ss
+++ b/src/libtoplevel.ss
@ -10,10 +10,6 @@

  (define bar 'i-am-an-exported-primitive-named-foo)

-  (primitive-set! 'expand
-    (lambda (x)
-      (chi-top-library x)))
-
  (let-values ([(files script args)
                (let f ([args (command-line-arguments)])
                  (cond