From e0194112c5c78966765f0a11e154448b82803a63 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Wed, 28 Aug 2019 13:12:43 +0300
Subject: [PATCH] Color the REPL prompt

---
 scheme-core/system.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme-core/system.scm b/scheme-core/system.scm
index 907897b..49ead9b 100644
--- a/scheme-core/system.scm
+++ b/scheme-core/system.scm
@@ -946,7 +946,7 @@ Up Scheme
 
 (define (repl)
   (define (prompt)
-    (display "up> ")
+    (display (string-append (sgr bold (fg cyan)) "up>" (sgr) " "))
     (io.flush *output-stream*)
     (let ((v (trycatch (read)
                        (lambda (e) (begin (io.discardbuffer *input-stream*)