Make sure the warning case returns false.

This commit is contained in:
Dominik Pantůček 2023-03-14 20:13:04 +01:00
parent 06159627aa
commit 0f9e5e2313
2 changed files with 8 additions and 5 deletions

View file

@ -97,8 +97,9 @@
(*member-file-context*)
(ansi #:red #:bold) (ansi #:default)
"" "" "..."))
(when (eq? (*member-file-check-syntax*) 'error)
(exit 1)))
(if (eq? (*member-file-check-syntax*) 'error)
(exit 1)
#f))
;; Parses given key-value line. Key is up to first space, value is the
;; rest of the line. If the line doesn't contain anything, returns #f.