lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Color the REPL prompt

This commit is contained in:
Lassi Kortela 2019-08-28 13:12:43 +03:00
parent 9047523588
commit e0194112c5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme-core/system.scm
View File

@ -946,7 +946,7 @@ Up Scheme
(define (repl) (define (repl)
(define (prompt) (define (prompt)
(display "up> ") (display (string-append (sgr bold (fg cyan)) "up>" (sgr) " "))
(io.flush *output-stream*) (io.flush *output-stream*)
(let ((v (trycatch (read) (let ((v (trycatch (read)
(lambda (e) (begin (io.discardbuffer *input-stream*) (lambda (e) (begin (io.discardbuffer *input-stream*)