diff --git a/src/default.scm b/src/default.scm index c044063..3a10227 100644 --- a/src/default.scm +++ b/src/default.scm @@ -11,7 +11,7 @@ ; or if it's value is empty ;; FIXME-QA(Molese): Needs test (define system-hostname-check (lambda () - (if (not (eq nil (getenv "HOSTNAME"))) + (if (eq nil (getenv "HOSTNAME")) (throw 1 "Environment variable 'HOSTNAME' is not set, unable to apply sufficient configuration")) (if (eq? (getenv "HOSTNAME") #f) (throw 1 "Environment variable 'HOSTNAME' is empty, unable to apply sufficient configuration"))))