diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-16 03:43:48 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-16 03:43:48 +0000 |
commit | 8f5cfc810fb19fdfbeaa55d59d47dc5ab50c416b (patch) | |
tree | b5435b4d55e8645240fdb0f555599ae3c4038491 /module/system/repl/repl.scm | |
parent | 78591ef5c3c4dd44cac912704696cf77c2cbbf73 (diff) | |
download | guile-8f5cfc810fb19fdfbeaa55d59d47dc5ab50c416b.tar.gz |
*** empty log message ***
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r-- | module/system/repl/repl.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm index 5c01c8b3a..73473af8c 100644 --- a/module/system/repl/repl.scm +++ b/module/system/repl/repl.scm @@ -23,14 +23,11 @@ :use-syntax (system base syntax) :use-module (system repl common) :use-module (system repl command) - :use-module (system vm frame) :use-module (ice-9 rdelim) :export (start-repl)) (define (start-repl lang) (let ((repl (make-repl lang))) -;; (set-current-vmodule! repl.module) -;; (set-current-evaluator! repl.vm) (repl-welcome repl) (let prompt-loop () (repl-prompt repl) @@ -38,8 +35,7 @@ (lambda () (if (eq? (next-char #t) #\,) ;; meta command - (begin (read-char) - (meta-command repl (read-line))) + (begin (read-char) (meta-command repl (read-line))) ;; evaluation (let rep-loop () (repl-print repl (repl-eval repl (repl-read repl))) |