diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-10-18 23:21:27 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-10-18 23:21:27 -0700 |
| commit | c4167885aa8399246282c2e80dce0534fc3ae079 (patch) | |
| tree | ff7dd7131f87be422e54d567cef35dbb6b54b186 | |
| parent | 17c7372925bfab9b057b36f3d93da8a2e087c5d6 (diff) | |
| download | txr-c4167885aa8399246282c2e80dce0534fc3ae079.tar.gz txr-c4167885aa8399246282c2e80dce0534fc3ae079.tar.bz2 txr-c4167885aa8399246282c2e80dce0534fc3ae079.zip | |
pic: bug: handle ! in digit separator logic
* stdlib/pic.tl (comma-positions): Must also look for ! point
if the . point is not found.
| -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] #\,) |