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.scm17
1 files changed, 7 insertions, 10 deletions
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm
index 4c5092b9d..ba3fe5aa5 100644
--- a/module/system/repl/common.scm
+++ b/module/system/repl/common.scm
@@ -20,19 +20,17 @@
;;; Code:
(define-module (system repl common)
- :use-module (oop goops)
:use-syntax (system base syntax)
:use-module (system base compile)
:use-module (system base language)
- :use-module (system vm core)
- :use-module (system vm trace))
+ :use-module (system vm core))
;;;
;;; Repl type
;;;
-(define-vm-class <repl> () env options tm-stats gc-stats vm-stats)
+(define-record (<repl> env options tm-stats gc-stats vm-stats))
(define repl-default-options
'((trace . #f)))
@@ -41,12 +39,11 @@
(let ((cenv (make-cenv :vm (the-vm)
:language (lookup-language lang)
:module (current-module))))
- (make <repl>
- :env cenv
- :options repl-default-options
- :tm-stats (times)
- :gc-stats (gc-stats)
- :vm-stats (vm-stats cenv.vm))))
+ (<repl> :env cenv
+ :options repl-default-options
+ :tm-stats (times)
+ :gc-stats (gc-stats)
+ :vm-stats (vm-stats cenv.vm))))
(define-public (repl-welcome repl)
(format #t "~A interpreter ~A on Guile ~A\n"