Welcome to the CHICKEN Scheme pasting service
breadline patch added by cornett on Sat Jul 6 05:38:33 2024
(define (current-environment-completions prefix)
(let ((size (string-length prefix)))
(filter
(lambda (candidate)
(and (>= (string-length candidate) size)
(substring=? prefix candidate 0 0 size)))
(map (o symbol->string car) (##sys#current-environment)))))