From 07ae23e86e837b84c4fdfd926ad41cac736b01bc Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 18 Oct 2021 23:21:27 -0700
Subject: pic: bug: handle ! in digit separator logic

* stdlib/pic.tl (comma-positions): Must also look for ! point
if the . point is not found.
---
 stdlib/pic.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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] #\,)
-- 
cgit v1.2.3