From 067affe31925e33c7032b6eb5fb79f0fa557621f Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 10 Nov 1998 14:17:24 +0000 Subject: [PATCH] * eval.c (scm_copy_tree): Copy source properties if existent. --- libguile/eval.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/libguile/eval.c b/libguile/eval.c index e71a30ce1..5e31e0d86 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -3199,6 +3199,12 @@ scm_copy_tree (obj) return obj; /* return scm_cons(scm_copy_tree(SCM_CAR(obj)), scm_copy_tree(SCM_CDR(obj))); */ ans = tl = scm_cons (scm_copy_tree (SCM_CAR (obj)), SCM_UNSPECIFIED); + { + /* Copy source properties possibly associated with head pair. */ + SCM p = scm_whash_lookup (scm_source_whash, obj); + if (SCM_NIMP (p)) + scm_whash_insert (scm_source_whash, ans, p); + } while (SCM_NIMP (obj = SCM_CDR (obj)) && SCM_CONSP (obj)) { SCM_SETCDR (tl, scm_cons (scm_copy_tree (SCM_CAR (obj)),