summaryrefslogtreecommitdiffstats
path: root/stdlib/pic.tl
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/pic.tl')
-rw-r--r--stdlib/pic.tl5
1 files changed, 4 insertions, 1 deletions
diff --git a/stdlib/pic.tl b/stdlib/pic.tl
index 96e78f2a..70ddbedf 100644
--- a/stdlib/pic.tl
+++ b/stdlib/pic.tl
@@ -44,7 +44,10 @@
(with-gensyms (str)
^(let ((,str ,code))
(if (> (len ,str) ,(len fmt))
- ,(mkstring (len fmt) #\#)
+ ,(let ((fill (mkstring (len fmt) #\#)))
+ (if (plusp (len fra))
+ (set [fill dot] #\.))
+ fill)
,str)))
code))))