X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/284f1fa2ace3e276052ff1bd7d66442500e693da..64cbfb65118395be4d6628a2ba9d5b2bd95663e0:/src/frontend.lisp

diff --git a/src/frontend.lisp b/src/frontend.lisp
index a4625f7..7648e2d 100644
--- 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)