mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

ice-9 history integration

Browse source 
* module/system/repl/repl.scm (start-repl): (ice-9 history) integration
  via the before-eval-hook and the before-print-hook.
This commit is contained in:
Andy Wingo 2008-05-09 13:21:23 +02:00
parent 3a6f6678cf
commit ccbbbe6d70
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/system/repl/repl.scm
View file

@ -59,9 +59,14 @@
(else (else
(catch 'vm-error (catch 'vm-error
(lambda () (lambda ()
(call-with-values (lambda () (repl-eval repl exp)) (call-with-values (lambda ()
(run-hook before-eval-hook exp)
(repl-eval repl exp))
(lambda l (lambda l
(for-each (lambda (v) (repl-print repl v)) l)))) (for-each (lambda (v)
(run-hook before-print-hook v)
(repl-print repl v))
l))))
(lambda (key fun msg args) (lambda (key fun msg args)
(display "ERROR: ") (display "ERROR: ")
(apply format #t msg args) (apply format #t msg args)