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

* Added a printer to the library rtd.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-04 09:22:33 -04:00
parent 2ec3a6da7c
commit e58710865c
2 changed files with 11 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.

12
src/library-manager.ss
View File

@ -587,5 +587,15 @@
(primitive-set! 'imported-loc->library lm:imported-loc->library)
(primitive-set! 'invoke-library lm:invoke-library)
(primitive-set! 'current-library-collection lm:current-library-collection)
(primitive-set! 'install-library lm:install-library))
(primitive-set! 'install-library lm:install-library)
((record-field-mutator (record-type-descriptor (type-descriptor library)) 'printer)
(type-descriptor library)
(lambda (x p)
(unless (library? x)
(error 'record-type-printer "not a library"))
(display
(format "#<library ~s>" (append (library-name x) (library-ver x)))
p)))
)