diff options
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r-- | module/ice-9/psyntax.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 0c5082d73..b97911d87 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -3234,7 +3234,7 @@ (define call-with-include-port (let ((syntax-dirname (lambda (stx) (define src (syntax-source stx)) - (define filename (and src (assq-ref src filename))) + (define filename (and src (assq-ref src 'filename))) (and (string? filename) (dirname filename))))) (lambda* (filename proc #:key (dirname (syntax-dirname filename))) |