diff options
-rw-r--r-- | share/txr/stdlib/pic.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/pic.tl b/share/txr/stdlib/pic.tl index f2805554..8d5ce59e 100644 --- a/share/txr/stdlib/pic.tl +++ b/share/txr/stdlib/pic.tl @@ -49,7 +49,7 @@ (with-gensyms (str) ^(let ((,str ,code)) (if (> (len ,str) ,(len fmt)) - (mkstring ,(len fmt) #\#) + ,(mkstring (len fmt) #\#) ,str))) code)))) |