summaryrefslogtreecommitdiff
path: root/module/system/repl/common.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/common.scm')
-rw-r--r--module/system/repl/common.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm
index ba18e2ea0..9570d1d18 100644
--- a/module/system/repl/common.scm
+++ b/module/system/repl/common.scm
@@ -24,7 +24,7 @@
#:use-module (system base language)
#:use-module (system vm vm)
#:export (<repl> make-repl repl-vm repl-language repl-options
- repl-tm-stats repl-gc-stats repl-vm-stats
+ repl-tm-stats repl-gc-stats
repl-welcome repl-prompt repl-read repl-compile repl-eval
repl-parse repl-print repl-option-ref repl-option-set!
puts ->string user-error))
@@ -34,7 +34,7 @@
;;; Repl type
;;;
-(define-record/keywords <repl> vm language options tm-stats gc-stats vm-stats)
+(define-record/keywords <repl> vm language options tm-stats gc-stats)
(define repl-default-options
'((trace . #f)
@@ -46,8 +46,7 @@
#:language (lookup-language lang)
#:options repl-default-options
#:tm-stats (times)
- #:gc-stats (gc-stats)
- #:vm-stats (vm-stats (the-vm))))
+ #:gc-stats (gc-stats)))
(define (repl-welcome repl)
(let ((language (repl-language repl)))