artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Robustify against empty `V' in environment.

Browse source 
* module/mescc.scm: Robustify against empty V in environment.
This commit is contained in:
Jan Nieuwenhuizen 2019-05-29 16:47:54 +02:00
parent 1444c67010
commit 9cc3b10763
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
module/mescc.scm
View file

@ -38,7 +38,7 @@
(define %prefix (getenv "%prefix")) (define %prefix (getenv "%prefix"))
(define %version (getenv "%version")) (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)) (format (current-error-port) "mescc[~a]...\n" %scheme))
(define (unclump-single o) (define (unclump-single o)