diff options
-rw-r--r-- | mew.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm index 71bb99a..02d0dd5 100644 --- a/mew.scm +++ b/mew.scm @@ -34,8 +34,9 @@ (complement negate) (compose comp)) (chicken module) - (chicken syntax) (chicken port) + (chicken repl) + (chicken syntax) srfi-17 (rename (srfi-69) (hash-table-keys keys) @@ -673,4 +674,11 @@ (define (act x . fs) ((apply per fs) x)) + + (let ((old-repl-prompt (repl-prompt))) + (repl-prompt (lambda () + (let ((old-prompt (old-repl-prompt))) + (str (substring old-prompt 0 2) + "^_^;" + (substring old-prompt 2)))))) ) |