33f93c0d2e
* Avoid keeping empty history lines * Avoid keeping repetitive history lines * Provided (and documented) set-completion-function! * Change sample use to a conditional `dynamic-require' * Use raw mallocs instead of eternal for completions svn: r4434
12 lines
317 B
Scheme
12 lines
317 B
Scheme
|
|
(module rep mzscheme
|
|
(require "pread.ss")
|
|
|
|
(current-prompt-read
|
|
(let ([orig-read (current-prompt-read)]
|
|
[orig-input (current-input-port)])
|
|
(lambda ()
|
|
(if (eq? (current-input-port) orig-input)
|
|
(prompt-read-using-readline (lambda (n) (if (zero? n) "> " " ")))
|
|
(orig-read))))))
|