* expand-mode is gone

src/libcompile.ss

@@ -385,11 +385,9 @@
             (make-primref var))]
          [(top-level-value)
           (let ([var (quoted-sym (cadr x))])
-            (if (eq? (expand-mode) 'bootstrap)
-                (error 'compile "reference to ~s in bootstrap mode" var)
-                (make-funcall
-                  (make-primref 'top-level-value)
-                  (list (make-constant var)))))]
+             (make-funcall
+               (make-primref 'top-level-value)
+               (list (make-constant var))))]
          [(set-top-level-value!)
           (make-funcall (make-primref 'set-top-level-value!)
                         (map E (cdr x)))]
@@ -5275,8 +5273,7 @@
     (let ([code 
            (if (code? x)
                x
-               (parameterize ([expand-mode 'eval])
-                 (compile-expr x)))])
+               (compile-expr x))])
       (let ([proc ($code->closure code)])
         (proc)))))
 
@@ -5285,8 +5282,7 @@
     (let ([code 
            (if (code? x)
                x
-               (parameterize ([expand-mode 'eval])
-                 (alt-compile-expr x)))])
+               (alt-compile-expr x))])
       (let ([proc ($code->closure code)])
         (proc)))))
 

src/library-manager.ss

@@ -405,7 +405,6 @@
       [compile-core-expr-to-port    compile-core-expr-to-port-label    (core-prim . compile-core-expr-to-port)]
       [eval       eval-label       (core-prim . eval)]
       [load       load-label       (core-prim . load)]
-      [expand-mode       expand-mode-label       (core-prim . expand-mode)]
       [assembler-output       assembler-output-label       (core-prim . assembler-output)]
       [current-expand       current-expand-label       (core-prim . current-expand)]
       [expand       expand-label       (core-prim . expand)]

src/libsyntax.ss

@@ -2011,9 +2011,9 @@
         ;;;    visit-code, invoke-code
         (let ([id (gensym)]
               [name name]
-              [ver '()]
+              [ver '()]  ;;; FIXME
               [imp* (map library-spec imp*)]
-              [vis* '()]
+              [vis* '()] ;;; FIXME
               [inv* (map library-spec run*)]
               [exp-subst
                (map (lambda (x) (cons (car x) (cadr x))) exp*)]
@@ -2024,7 +2024,7 @@
                     exp*)])
           (install-library id name ver
              imp* vis* inv* exp-subst exp-env
-             void
+             void ;;; FIXME
              (lambda () (compile-time-eval-hook invoke-code)))
           (invoke-library (find-library-by-name name))
           (build-void)))))

src/libtoplevel.ss

@@ -15,9 +15,6 @@
           (cadr x)
           (chi-top-library x))))
 
-  (primitive-set! 'expand-mode
-    (make-parameter 'eval))
-  
   (primitive-set! 'current-expand
     (make-parameter sc-expand
       (lambda (f)