removed all references to oblist from ss files
This commit is contained in:
parent
72653c5ef1
commit
711cabe8bb
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -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)]
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue