diff --git a/src/ikarus.boot b/src/ikarus.boot index d5c4814..5f6c894 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/libcompile.ss b/src/libcompile.ss index 1bbb567..d46c4dc 100644 --- a/src/libcompile.ss +++ b/src/libcompile.ss @@ -11,6 +11,11 @@ ;;; 6.1: * added case-lambda, dropped lambda ;;; 6.0: * basic compiler +(library (ikarus compiler) + (export) + (import (scheme)) + + (let () (define-syntax record-case @@ -5195,6 +5200,7 @@ (lambda args (error 'alt-cogen "disabled for now"))) + (define (alt-compile-expr expr) (let* ([p (parameterize ([assembler-output #f]) (expand expr))] @@ -5308,5 +5314,5 @@ f))) -) +))