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

removed all references to oblist from ss files

This commit is contained in:
Abdulaziz Ghuloum 2006-12-25 09:20:09 +03:00
parent 72653c5ef1
commit 711cabe8bb
3 changed files with 1 additions and 5 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.

4
src/libcore.ss
View File

@ -1076,10 +1076,6 @@ reference-implementation:
(error 'string->symbol "~s is not a string" x)) (error 'string->symbol "~s is not a string" x))
(foreign-call "ik_intern_string" x))) (foreign-call "ik_intern_string" x)))
(primitive-set! 'oblist
(lambda ()
(foreign-call "ik_oblist")))
(primitive-set! 'gensym (primitive-set! 'gensym
(case-lambda (case-lambda
[() ($make-symbol #f)] [() ($make-symbol #f)]

2
src/makefile.ss
View File

@ -48,7 +48,7 @@
string<? string<=? string>? string>=? remprop putprop getprop string<? string<=? string>? string>=? remprop putprop getprop
property-list apply map for-each andmap ormap memq memv assq property-list apply map for-each andmap ormap memq memv assq
assv assoc eq? eqv? equal? reverse string->symbol symbol->string assv assoc eq? eqv? equal? reverse string->symbol symbol->string
oblist top-level-value set-top-level-value! top-level-bound? top-level-value set-top-level-value! top-level-bound?
gensym gensym-count gensym-prefix print-gensym gensym gensym-count gensym-prefix print-gensym
gensym->unique-string call-with-values values make-parameter gensym->unique-string call-with-values values make-parameter
dynamic-wind display write print-graph fasl-write printf format dynamic-wind display write print-graph fasl-write printf format