From 2f843c4b7a06c8a897f6b30651e7aa602c63aef5 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 20 Aug 2004 15:13:56 +0000 Subject: [PATCH] (display-source): Use unmemoize-expr instead of unmemoize. (write-frame-short/expression): Likewise. --- ice-9/debugger/utils.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ice-9/debugger/utils.scm b/ice-9/debugger/utils.scm index a25290f56..367488c3c 100644 --- a/ice-9/debugger/utils.scm +++ b/ice-9/debugger/utils.scm @@ -107,7 +107,7 @@ (copy (source-property source 'copy))) (if (pair? copy) copy - (unmemoize source))))) + (unmemoize-expr source))))) (define (write-state-long state) (let ((index (state-index state))) @@ -156,7 +156,7 @@ (cond ((source-position source) => (lambda (p) (display-position p) (display ":\n")))) (display " ") - (write (or copy (unmemoize source))))) + (write (or copy (unmemoize-expr source))))) (define (source-position source) (let ((fname (source-property source 'filename))