doc/*.tex: Add stubs for `file-location' reader methods.

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 81a39565d32bbbc51c1036df6e2b54d68692e4b6..df058bee46bc179b69181dd2dab942d65cdc1d28 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -141,7 +141,7 @@ (define-pluggable-parser module file (scanner pset)
   (declare (ignore pset))
   (flet ((common (name type what thunk)
           (when name
   (declare (ignore pset))
   (flet ((common (name type what thunk)
           (when name

-            (find-file scanner
+            (find-file (pathname (scanner-filename scanner))

                        (merge-pathnames name
                                         (make-pathname :type type
                                                        :case :common))
                        (merge-pathnames name
                                         (make-pathname :type type
                                                        :case :common))