From 4c482de7427746a84d7c9c82dbb47ec59ee11283 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 14 Jun 2021 22:24:02 -0700
Subject: pic: do mkstring cat macro time.

* share/txr/stdlib/pic.tl (expand-pic-num): The ##...## string
that indicates an overflowing field can be created by the
macro and inserted into the code as a literal object, rather
than inserted as a mkstring call which calculates it run time
each time the code is executed.
---
 share/txr/stdlib/pic.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))
 
-- 
cgit v1.2.3