conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* libcompile librarified

This commit is contained in:
Abdulaziz Ghuloum 2007-05-01 04:37:35 -04:00
parent 5ae6f6bc76
commit 76023d27c6
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

8
src/libcompile.ss
View File

@ -11,6 +11,11 @@
;;; 6.1: * added case-lambda, dropped lambda ;;; 6.1: * added case-lambda, dropped lambda
;;; 6.0: * basic compiler ;;; 6.0: * basic compiler
(library (ikarus compiler)
(export)
(import (scheme))
(let () (let ()
(define-syntax record-case (define-syntax record-case
@ -5195,6 +5200,7 @@
(lambda args (lambda args
(error 'alt-cogen "disabled for now"))) (error 'alt-cogen "disabled for now")))
(define (alt-compile-expr expr) (define (alt-compile-expr expr)
(let* ([p (parameterize ([assembler-output #f]) (let* ([p (parameterize ([assembler-output #f])
(expand expr))] (expand expr))]
@ -5308,5 +5314,5 @@
f))) f)))
) ))