mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-19 05:59:09 +00:00
parent f21dfea659
commit 24aa2715f6
4 changed files with 24 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/system/repl/command.scm
View file

@ -171,10 +171,9 @@ List/show/set options."
(repl-option-set! repl key val)
(case key
((trace)
(let ((opts (repl-option-ref repl 'trace-options)))
(if val
(apply vm-trace-on repl.env.vm opts)
(vm-trace-off repl.env.vm))))))))
(if val
(apply vm-trace-on repl.env.vm val)
(vm-trace-off repl.env.vm)))))))
(define (quit repl)
"quit

3
module/system/repl/common.scm
View file

@ -35,8 +35,7 @@
(define-vm-class <repl> () env options tm-stats gc-stats vm-stats)
(define repl-default-options
'((trace . #f)
(trace-options . (:s))))
'((trace . #f)))
(define-public (make-repl lang)
(let ((cenv (make-cenv :vm (the-vm)