Added missing linux module error message.

Pascal J. Bourguignon [2018-09-24 09:15]
Added missing linux module error message.
Filename
script.lisp
diff --git a/script.lisp b/script.lisp
index ecf66a7..657d74e 100644
--- a/script.lisp
+++ b/script.lisp
@@ -217,7 +217,14 @@ If available we use the actual program name (from (EXT:ARGV) or
           (push :linux *features*))

 #-(or linux macos win32 #|what else is not linux?|#)
-(relaunch-with-kfull-linkset-if-needed (lambda () (require "linux")))
+(relaunch-with-kfull-linkset-if-needed
+ (lambda ()
+   ;; But sometimes, it's not enough, linux is just not there…
+   (handler-case
+       (require "linux")
+     (error (err)
+       (format *error-output* "~A: ~A~%Missing the Linux module.  Abort.~%" *program-name* err)
+       (ext:quit 69)))))


ViewGit