* current-expand is gone

src/library-manager.ss

@@ -406,7 +406,6 @@
       [eval-core  eval-core-label  (core-prim . eval-core)]
       [load       load-label       (core-prim . load)]
       [assembler-output       assembler-output-label       (core-prim . assembler-output)]
-      [current-expand       current-expand-label       (core-prim . current-expand)]
       [expand       expand-label       (core-prim . expand)]
       [fasl-write       fasl-write-label       (core-prim . fasl-write)]
       [new-cafe   new-cafe-label   (core-prim . new-cafe)]

src/libtoplevel.ss

@@ -15,16 +15,9 @@
           (cadr 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
     (lambda (x)
-      ((current-expand) x)))
+      (sc-expand x)))
 
   (let-values ([(files script args)
                 (let f ([args (command-line-arguments)])