fixed-objects-item
update-fixed-objects-item!)
(import (runtime parser)
- (param:parser-fold-case? runtime-param:parser-fold-case?)
- (param:parser-radix runtime-param:parser-radix)
get-param:parser-fold-case?)
(import (runtime port)
(make-port make-textual-port)
(let ((completions
(let ((environment (evaluation-environment #f)))
(obarray-completions
- (if (and bound-only?
- (get-param:parser-fold-case? environment))
+ (if (and bound-only? (get-param:parser-fold-case?))
(string-downcase prefix)
prefix)
(if bound-only?