* swapped core-compile-expr and alt-core-compile-expr

src/ikarus.compiler.ss

@@ -5236,7 +5236,7 @@
           (tail-indirect-cpr-call))))
     SL_fx+_overflow]))
 
-(define (compile-core-expr->code p)
+(define (alt-compile-core-expr->code p)
   (let* ([p (recordize p)]
          [p (optimize-direct-calls p)]
          [p (optimize-letrec p)]
@@ -5273,7 +5273,7 @@
                ls*)])
         (car code*)))))
 
-(define (alt-compile-core-expr->code p)
+(define (compile-core-expr->code p)
   (let* ([p (recordize p)]
          [p (parameterize ([open-mvcalls #f])
               (optimize-direct-calls p))]

src/makefile.ss

@@ -856,7 +856,7 @@
         (let ([p (open-output-file "ikarus.boot" 'replace)])
           (for-each 
             (lambda (x) 
-              (alt-compile-core-expr-to-port x p))
+              (compile-core-expr-to-port x p))
             core*)
           (close-output-port p)))))