mescc: Robustify against empty `V' in environment.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 29 May 2019 14:47:54 +0000 (16:47 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 29 May 2019 14:47:54 +0000 (16:47 +0200)
* module/mescc.scm: Robustify against empty V in environment.

module/mescc.scm

index c7e533a2a661588217ca49c9027e60fee8b1ccf7..1c13c82ed282b43a5fba9d18fcc877ee4f4778e1 100644 (file)
@@ -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)