lib/keyword.c (kw_parseempty): Use correct variable scanning `kwval' list.

[sod] / src / module-proto.lisp

diff --git a/src/module-proto.lisp b/src/module-proto.lisp
index ca0d511dd2d77face5ebc28589d736306abfe980..64dab86547b27ba0583d4c44b3498d3f4a52d8bc 100644 (file)
--- a/src/module-proto.lisp
+++ b/src/module-proto.lisp
@@ -151,7 +151,7 @@ (defgeneric finalize-module (module)
 (export '(module module-name module-pset module-errors
          module-items module-files module-dependencies module-state))
 (defclass module ()
-  ((name :initarg :name :type pathname :reader module-name)
+  ((name :initarg :name :type (or pathname (eql :stdin)) :reader module-name)
    (%pset :initarg :pset :initform (make-pset)
          :type pset :reader module-pset)
    (errors :initarg :errors :initform 0 :type fixnum :reader module-errors)