summaryrefslogtreecommitdiffstats
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/pic.tl2
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] #\,)