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

added comment to libguardians about where the code came from.

This commit is contained in:
Abdulaziz Ghuloum 2006-12-24 12:20:16 +03:00
parent 06158d90e0
commit da9518cc49
3 changed files with 26 additions and 23 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.

3
src/libguardians.ss
View File

@ -1,4 +1,7 @@
;;; The procedure make-guardian is coped en verbatim
;;; from Dybvig et al. Guardians paper.
(let () (let ()
(define make-guardian (define make-guardian
(lambda () (lambda ()

46
src/makefile.ss
View File

@ -208,27 +208,27 @@
(whack-system-env #t) (whack-system-env #t)
(define scheme-library-files (define scheme-library-files
'(["libhandlers.ss" #t "libhandlers.fasl"] '(["libhandlers.ss" "libhandlers.fasl"]
["libcontrol.ss" #t "libcontrol.fasl"] ["libcontrol.ss" "libcontrol.fasl"]
["libcollect.ss" #t "libcollect.fasl"] ["libcollect.ss" "libcollect.fasl"]
["librecord.ss" #t "librecord.fasl"] ["librecord.ss" "librecord.fasl"]
["libcxr.ss" #t "libcxr.fasl"] ["libcxr.ss" "libcxr.fasl"]
["libnumerics.ss" #t "libnumerics.fasl"] ["libnumerics.ss" "libnumerics.fasl"]
["libguardians.ss" #t "libguardians.fasl"] ["libguardians.ss" "libguardians.fasl"]
["libcore.ss" #t "libcore.fasl"] ["libcore.ss" "libcore.fasl"]
["libchezio.ss" #t "libchezio.fasl"] ["libchezio.ss" "libchezio.fasl"]
["libhash.ss" #t "libhash.fasl"] ["libhash.ss" "libhash.fasl"]
["libwriter.ss" #t "libwriter.fasl"] ["libwriter.ss" "libwriter.fasl"]
["libtokenizer.ss" #t "libtokenizer.fasl"] ["libtokenizer.ss" "libtokenizer.fasl"]
["libassembler.ss" #t "libassembler.fasl"] ["libassembler.ss" "libassembler.fasl"]
["libintelasm.ss" #t "libintelasm.fasl"] ["libintelasm.ss" "libintelasm.fasl"]
["libfasl.ss" #t "libfasl.fasl"] ["libfasl.ss" "libfasl.fasl"]
["libcompile.ss" #t "libcompile.fasl"] ["libcompile.ss" "libcompile.fasl"]
["psyntax-7.1.ss" #t "psyntax.fasl"] ["psyntax-7.1.ss" "psyntax.fasl"]
["libcafe.ss" #t "libcafe.fasl"] ["libcafe.ss" "libcafe.fasl"]
["libtrace.ss" #t "libtrace.fasl"] ["libtrace.ss" "libtrace.fasl"]
["libposix.ss" #t "libposix.fasl"] ["libposix.ss" "libposix.fasl"]
["libtoplevel.ss" #t "libtoplevel.fasl"] ["libtoplevel.ss" "libtoplevel.fasl"]
)) ))
@ -257,7 +257,7 @@
(for-each (for-each
(lambda (x) (lambda (x)
(when (cadr x) (when (cadr x)
(compile-library (car x) (caddr x)))) (compile-library (car x) (cadr x))))
scheme-library-files) scheme-library-files)
(define (join s ls) (define (join s ls)
@ -278,7 +278,7 @@
(system (system
(format "cat ~a > ikarus.boot" (format "cat ~a > ikarus.boot"
(join " " (map caddr scheme-library-files)))) (join " " (map cadr scheme-library-files))))
;(#%compiler-giveup-tally) ;(#%compiler-giveup-tally)
; vim:syntax=scheme ; vim:syntax=scheme