From dbf1ddbad1122d0d7c50076106ab4c31869dc6b8 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 27 Feb 2019 15:47:54 +0100 Subject: [PATCH] mescc: Robustify against empty `V' in environment. * module/mescc.scm: Robustify against empty V in environment. --- module/mescc.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/mescc.scm b/module/mescc.scm index c7e533a2..1c13c82e 100644 --- a/module/mescc.scm +++ b/module/mescc.scm @@ -38,7 +38,7 @@ (define %prefix (getenv "%prefix")) (define %version (getenv "%version")) -(when (and=> (getenv "V") (lambda (v) (> (string->number v) 1))) +(when (and=> (getenv "V") (lambda (v) (and (= (string-length v) 1) (> (string->number v) 1)))) (format (current-error-port) "mescc[~a]...\n" %scheme)) (define (unclump-single o)