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

Binary file not shown.

View File

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

View File

@ -48,7 +48,7 @@
string<? string<=? string>? string>=? remprop putprop getprop
property-list apply map for-each andmap ormap memq memv assq
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->unique-string call-with-values values make-parameter
dynamic-wind display write print-graph fasl-write printf format