diff options
Diffstat (limited to 'module/system/repl/common.scm')
-rw-r--r-- | module/system/repl/common.scm | 17 |
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" |