14 lines
235 B
Scheme
14 lines
235 B
Scheme
|
(import breadline)
|
||
|
|
(import fmt)
|
||
|
|
(import fmt-color)
|
||
|
|
|
||
|
|
(let loop ()
|
||
|
|
(let ((input (readline (fmt #f (fmt-bold (fmt-magenta "> "))))))
|
||
|
|
(if input
|
||
|
|
(begin
|
||
|
|
(display input)
|
||
|
|
(newline)
|
||
|
|
(add-history! input)
|
||
|
|
(loop))
|
||
|
|
(newline))))
|