suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix error message, use a faster regexp test to search for NULs, forbid empty byte strings.

Browse Source 
original commit: fca0ed2111300dcbdb3825bdd319ae284d4ac22f
This commit is contained in:
Eli Barzilay 2011-02-20 12:42:52 -05:00
parent 5b012ac355
commit 5100aad081
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/process.rkt
View File

@ -101,9 +101,10 @@
[else
(for ([s (in-list args)])
(unless (or (path-string? s)
(and (bytes? s)
(for/and ([b (in-bytes s)]) (positive? b))))
(raise-type-error who "path, string, or byte string (no with nuls)" s)))])
(and (bytes? s) ((bytes-length s) . > . 0)
(not (regexp-match? #rx"\0" s))))
(raise-type-error who "path, string, or byte string (without NULs)"
s)))])
args)
(define (check-command who str)