;; 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)