RiXotStudio/grilumops
1
0
Fork 0
Code Issues Pull Requests Releases Activity

src/default.scm: remove unnecessary not statement in system-hostname-check #3

Closed
Ghost wants to merge 1 commits from (deleted):molese-patch into ALPHA
pull from: (deleted):molese-patch
merge into: RiXotStudio:ALPHA
Conversation 0 Commits 1 Files Changed 1 +1 -1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/default.scm
View File

@ -11,7 +11,7 @@
; or if it's value is empty ; or if it's value is empty
;; FIXME-QA(Molese): Needs test ;; FIXME-QA(Molese): Needs test
(define system-hostname-check (lambda () (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")) (throw 1 "Environment variable 'HOSTNAME' is not set, unable to apply sufficient configuration"))
(if (eq? (getenv "HOSTNAME") #f) (if (eq? (getenv "HOSTNAME") #f)
(throw 1 "Environment variable 'HOSTNAME' is empty, unable to apply sufficient configuration")))) (throw 1 "Environment variable 'HOSTNAME' is empty, unable to apply sufficient configuration"))))