diff options
Diffstat (limited to 'stdlib/pic.tl')
| -rw-r--r-- | stdlib/pic.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/pic.tl b/stdlib/pic.tl index 70ddbedf..db9aaf80 100644 --- a/stdlib/pic.tl +++ b/stdlib/pic.tl @@ -54,7 +54,7 @@ (defun comma-positions (fmt) (let* ((fmtx (regsub #/,./ #\, fmt)) (len (len fmtx)) - (ppos (or (pos #\. fmtx) len)) + (ppos (or (pos #\. fmtx) (pos #\! fmtx) len)) (out (vec))) (each ((i len..0)) (if (meql [fmtx i] #\,) |