summaryrefslogtreecommitdiff
path: root/module/ice-9/psyntax-pp.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/psyntax-pp.scm')
-rw-r--r--module/ice-9/psyntax-pp.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 95758255a..3732d5ac1 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -236,8 +236,10 @@
(make-letrec src in-order? ids vars val-exps body-exp)))))
(source-annotation
(lambda (x)
- (let ((props (source-properties (if (syntax? x) (syntax-expression x) x))))
- (and (pair? props) props))))
+ (if (syntax? x)
+ (syntax-source x)
+ (let ((props (source-properties x)))
+ (and (pair? props) props)))))
(extend-env
(lambda (labels bindings r)
(if (null? labels)
@@ -2416,7 +2418,6 @@
(lambda (id datum)
(make-syntax datum (syntax-wrap id) (syntax-module id))))
(set! syntax->datum (lambda (x) (strip x '(()))))
- (set! syntax-source (lambda (x) (source-annotation x)))
(set! generate-temporaries
(lambda (ls)
(let ((x ls))