14 lines
309 B
Scheme
14 lines
309 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))))))
|
|
|
|
|