* added find-library-by-name

This commit is contained in:
Abdulaziz Ghuloum 2007-05-15 10:23:40 -04:00
parent 026f786bf9
commit 2b96460a77
2 changed files with 7 additions and 6 deletions

Binary file not shown.

View File

@ -1,12 +1,12 @@
#!/usr/bin/env ikarus -b ikarus.boot --r6rs-script #!/usr/bin/env ikarus -b ikarus.boot --r6rs-script
;(import (except (ikarus) assembler-output) #;(import (except (ikarus) assembler-output)
; (ikarus compiler) (ikarus compiler)
; (except (ikarus system $bootstrap) (except (ikarus system $bootstrap)
; eval-core eval-core
; current-primitive-locations current-primitive-locations
; compile-core-expr-to-port)) compile-core-expr-to-port))
(import (ikarus) (ikarus system $bootstrap)) (import (ikarus) (ikarus system $bootstrap))
@ -434,6 +434,7 @@
[eval-core $boot] [eval-core $boot]
[current-library-collection $boot] [current-library-collection $boot]
[library-name $boot] [library-name $boot]
[find-library-by-name $boot]
[$car $pairs] [$car $pairs]
[$cdr $pairs] [$cdr $pairs]