* auto-invoke completely gone.

2007-05-03 01:59:57 -04:00 · 2007-05-03 01:59:57 -04:00 · 2c25051855
parent 4eca8e3915
commit 2c25051855
2 changed files with 1 additions and 2 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libsyntax.ss
+++ b/src/libsyntax.ss
@ -2028,8 +2028,7 @@
          (install-library id name ver
             imp* vis* inv* exp-subst exp-env
             void ;;; FIXME
-             (lambda () (eval-core invoke-code)))
-          #;(invoke-library (find-library-by-name name))))))
+             (lambda () (eval-core invoke-code)))))))
  (define boot-library-expander
    (lambda (x)
      (let-values ([(name imp* run* invoke-code exp*)