diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-14 22:24:02 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-14 22:24:02 -0700 |
| commit | 4c482de7427746a84d7c9c82dbb47ec59ee11283 (patch) | |
| tree | 4d47c59d6f5ad67cc8cb0fdfd0bab79f1032b9b9 /share | |
| parent | a0834f3bd8a3beca14501190b46062484b90f555 (diff) | |
| download | txr-4c482de7427746a84d7c9c82dbb47ec59ee11283.tar.gz txr-4c482de7427746a84d7c9c82dbb47ec59ee11283.tar.bz2 txr-4c482de7427746a84d7c9c82dbb47ec59ee11283.zip | |
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.
Diffstat (limited to 'share')
| -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)))) |