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

* build-system-library in makefile now constructs a proper 

current-primitive-locations procedure.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-04 06:14:20 -04:00
parent 75bfaf49a0
commit 0700cdc1cb
2 changed files with 6 additions and 3 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.

9
src/makefile.ss
View File

@ -125,14 +125,17 @@
[(null? r) '()]
[else (add (car r) (f (cdr r)))])))
(define (build-system-library export-subst export-env)
(define (build-system-library export-subst export-env primlocs)
(let-values ([(code empty-subst empty-env)
(boot-library-expand
`(library (ikarus primlocs)
(export) ;;; must be empty
(import (scheme))
(current-primitive-locations
(lambda (x) #f))
(lambda (x)
(cond
[(assq x ',primlocs) => cdr]
[else #f])))
(install-library
',(gensym "system") ;;; id
'(system) ;;; name
@ -163,7 +166,7 @@
(set! env (append export-env env))))))
files)
(let ([env (sanitize-export-env subst env)])
(let ([code (build-system-library subst env)])
(let ([code (build-system-library subst env '())])
(values
(reverse (list* (car code*) code (cdr code*)))
subst env)))))