mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 01:10:24 +02:00
Code Activity

(display-source): Use unmemoize-expr instead

Browse source 
of unmemoize.
(write-frame-short/expression): Likewise.
This commit is contained in:
Marius Vollmer 2004-08-20 15:13:56 +00:00
parent c1f54b3dda
commit 2f843c4b7a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/debugger/utils.scm
View file

@ -107,7 +107,7 @@
(copy (source-property source 'copy))) (copy (source-property source 'copy)))
(if (pair? copy) (if (pair? copy)
copy copy
(unmemoize source))))) (unmemoize-expr source)))))
(define (write-state-long state) (define (write-state-long state)
(let ((index (state-index state))) (let ((index (state-index state)))
@ -156,7 +156,7 @@
(cond ((source-position source) (cond ((source-position source)
=> (lambda (p) (display-position p) (display ":\n")))) => (lambda (p) (display-position p) (display ":\n"))))
(display " ") (display " ")
(write (or copy (unmemoize source))))) (write (or copy (unmemoize-expr source)))))
(define (source-position source) (define (source-position source)
(let ((fname (source-property source 'filename)) (let ((fname (source-property source 'filename))