diff options
| -rw-r--r-- | stdlib/pic.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/pic.tl b/stdlib/pic.tl index 7ca898a7..e66ecdfd 100644 --- a/stdlib/pic.tl +++ b/stdlib/pic.tl @@ -78,8 +78,8 @@ (string-extend out [num i]))) (when (plusp i) (when (< j pn) - (if (meq [num (pred i)] #\space #\- #\+) - (set comma [num (pred i)])) + (ifa (meq [num (pred i)] #\space #\- #\+) + (set comma it)) (let ((pj [positions j])) (cond ((eql pj p) |