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

* standard libraries now have version (6). 

* #<library> now prints versions in proper form.
This commit is contained in:
Abdulaziz Ghuloum 2007-10-26 01:22:11 -04:00
parent 959b682588
commit 75a95bc189
4 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
scheme/ikarus.boot.orig
View File

Binary file not shown.

2
scheme/makefile.ss
View File

@ -1443,7 +1443,7 @@
[visible? (caddr legend-entry)]) [visible? (caddr legend-entry)])
(let ([id (gensym)] (let ([id (gensym)]
[name name] [name name]
[version '()] [version (if (eq? (car name) 'rnrs) '(6) '())]
[import-libs '()] [import-libs '()]
[visit-libs '()] [visit-libs '()]
[invoke-libs '()]) [invoke-libs '()])

1
scheme/psyntax.expander.ss
View File

@ -2791,6 +2791,7 @@
(cdr x))) (cdr x)))
subst))) subst)))
((library name) (eq? library 'library) ((library name) (eq? library 'library)
;;; FIXME: versioning stuff
(let ((lib (find-library-by-name name))) (let ((lib (find-library-by-name name)))
(unless lib (unless lib
(error 'import (error 'import

5
scheme/psyntax.library-manager.ss
View File

@ -52,7 +52,10 @@
(unless (library? x) (unless (library? x)
(error 'record-type-printer "not a library")) (error 'record-type-printer "not a library"))
(display (display
(format "#<library ~s>" (append (library-name x) (library-ver x))) (format "#<library ~s>"
(if (null? (library-ver x))
(library-name x)
(append (library-name x) (list (library-ver x)))))
p))) p)))
(define (find-dependencies ls) (define (find-dependencies ls)