From ccbbbe6d70fffc27fc61f731a74046fe4f1f9fa9 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 9 May 2008 13:21:23 +0200 Subject: [PATCH] ice-9 history integration * module/system/repl/repl.scm (start-repl): (ice-9 history) integration via the before-eval-hook and the before-print-hook. --- module/system/repl/repl.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm index 65c77132c..2297fdbec 100644 --- a/module/system/repl/repl.scm +++ b/module/system/repl/repl.scm @@ -59,9 +59,14 @@ (else (catch 'vm-error (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 - (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) (display "ERROR: ") (apply format #t msg args)