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

* Added timers to the makefile.ss

This commit is contained in:
Abdulaziz Ghuloum 2007-05-07 02:29:34 -04:00
parent 6723a30ef9
commit 4e5d1439e0
2 changed files with 19 additions and 16 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.

35
src/makefile.ss
View File

@ -374,6 +374,7 @@
[load i] [load i]
[assembler-output i] [assembler-output i]
[new-cafe i] [new-cafe i]
[time-it i]
[command-line-arguments i] [command-line-arguments i]
[record? i] [record? i]
[make-record-type i] [make-record-type i]
@ -675,7 +676,6 @@
(set! subst (append export-subst subst)) (set! subst (append export-subst subst))
(set! env (append export-env env)))))) (set! env (append export-env env))))))
files) files)
(printf "building system ...\n")
(let-values ([(export-subst export-env export-locs) (let-values ([(export-subst export-env export-locs)
(make-system-data subst env)]) (make-system-data subst env)])
(let ([code (build-system-library export-subst export-env export-locs)]) (let ([code (build-system-library export-subst export-env export-locs)])
@ -684,22 +684,25 @@
export-locs))))) export-locs)))))
(verify-map) (verify-map)
(printf "expanding ...\n")
(let-values ([(core* locs) (expand-all scheme-library-files)]) (time-it
(printf "compiling ...\n") (lambda ()
(parameterize ([current-primitive-locations (let-values ([(core* locs)
(lambda (x) (time-it
(cond (lambda () (expand-all scheme-library-files))
[(assq x locs) => cdr] "macro expansion")])
[else (parameterize ([current-primitive-locations
(error 'bootstrap "no location for ~s" x)]))]) (lambda (x)
(let ([p (open-output-file "ikarus.boot" 'replace)]) (cond
(for-each [(assq x locs) => cdr]
(lambda (x) (compile-core-expr-to-port x p)) [else
core*) (error 'bootstrap "no location for ~s" x)]))])
(close-output-port p)))) (let ([p (open-output-file "ikarus.boot" 'replace)])
(for-each
(lambda (x) (compile-core-expr-to-port x p))
core*)
(close-output-port p)))))
"the entire bootstrap process")
(printf "Happy Happy Joy Joy\n")) (printf "Happy Happy Joy Joy\n"))