diff options
Diffstat (limited to 'module/ice-9/psyntax-pp.scm')
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 7 |
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)) |