summaryrefslogtreecommitdiff
path: root/module/system/repl/repl.scm
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-16 03:43:48 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-16 03:43:48 +0000
commit8f5cfc810fb19fdfbeaa55d59d47dc5ab50c416b (patch)
treeb5435b4d55e8645240fdb0f555599ae3c4038491 /module/system/repl/repl.scm
parent78591ef5c3c4dd44cac912704696cf77c2cbbf73 (diff)
downloadguile-8f5cfc810fb19fdfbeaa55d59d47dc5ab50c416b.tar.gz
*** empty log message ***
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r--module/system/repl/repl.scm6
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)))