src/module-{proto,impl}.lisp, etc.: Don't output erroneous modules.

[sod] / src / frontend.lisp

diff --git a/src/frontend.lisp b/src/frontend.lisp
index a4625f7..7648e2d 100644 (file)
--- a/src/frontend.lisp
+++ b/src/frontend.lisp
@@ -182,7 +182,9 @@
 
               ;; Parse and write out the remaining modules.
               (dolist (arg args)
-                (hack-module (read-module arg)))))
+                (let ((module (read-module arg)))
+                  (when (zerop (module-errors module))
+                    (hack-module module))))))
 
       (if backtracep (hack-modules)
          (multiple-value-bind (hunoz nerror nwarn)