diff options
Diffstat (limited to 'stdlib/pic.tl')
-rw-r--r-- | stdlib/pic.tl | 5 |
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)))) |