src/module-parse.lisp (read-module): Use requested pathname for location.

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 211f2c74a84209960b7ef2c46c7a0bae73c318b9..f90f360ae61f2dfcecaaf87fadadfedc7cd2ac5b 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -103,7 +103,8 @@   (define-module (pathname :location location :truename truename)
       (let* ((*readtable* (copy-readtable))
             (*package* (find-package '#:sod-user))
             (char-scanner (make-instance 'charbuf-scanner
       (let* ((*readtable* (copy-readtable))
             (*package* (find-package '#:sod-user))
             (char-scanner (make-instance 'charbuf-scanner

-                                         :stream f-stream))
+                                         :stream f-stream
+                                         :filename (namestring pathname)))

             (scanner (make-instance 'sod-token-scanner
                                     :char-scanner char-scanner)))
        (with-default-error-location (scanner)
             (scanner (make-instance 'sod-token-scanner
                                     :char-scanner char-scanner)))
        (with-default-error-location (scanner)