diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2022-11-25 18:36:56 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-11-25 18:36:56 -0800 |
commit | eb7855fe5d8d22c2b79a6d60a62913481350e4cf (patch) | |
tree | fcbcf74ab71072cbf16805e7e0de2b2a86b817bf | |
parent | 5974e3e4da9dcbec56723c398073f7859725aade (diff) | |
download | txr-eb7855fe5d8d22c2b79a6d60a62913481350e4cf.tar.gz txr-eb7855fe5d8d22c2b79a6d60a62913481350e4cf.tar.bz2 txr-eb7855fe5d8d22c2b79a6d60a62913481350e4cf.zip |
compiler: bug: some functions mustn't be constant-folded
* stdlib/constfun.tl (%const-foldable-syms%): Removing
the following functions, which cannot be constant folded
because maybe are relied upon to produce fresh objects:
cons, sub-list, conses, ldiff, uniq, tostring, tostringp,
join, join-with.
-rw-r--r-- | stdlib/constfun.tl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/constfun.tl b/stdlib/constfun.tl index 48587c42..36aac0bd 100644 --- a/stdlib/constfun.tl +++ b/stdlib/constfun.tl @@ -41,14 +41,14 @@ caadaar caadadr caaddar caadddr cadaaar cadaadr cadadar cadaddr caddaar caddadr cadddar caddddr cdaaaar cdaaadr cdaadar cdaaddr cdadaar cdadadr cdaddar cdadddr cddaaar cddaadr cddadar cddaddr cdddaar cdddadr cddddar - cdddddr cons first rest sub-list identity typeof atom null false true have + cdddddr first rest identity typeof atom null false true have consp listp endp proper-listp length-list second third fourth fifth - sixth seventh eighth ninth tenth conses ldiff nthcdr nth tailp + sixth seventh eighth ninth tenth nthcdr nth tailp memq memql memqual rmemq rmemql rmemqual countq countql countqual posq posql posqual rposq rposql rposqual eq eql equal meq meql mequal - neq neql nequal max min clamp bracket take drop uniq if or and progn - prog1 prog2 nilf tf tostring tostringp display-width sys:fmt-simple - sys:fmt-flex join join-with sys:fmt-join packagep + neq neql nequal max min clamp bracket take drop if or and progn + prog1 prog2 nilf tf display-width sys:fmt-simple + sys:fmt-flex sys:fmt-join packagep symbolp keywordp bindable stringp length-str coded-length cmp-str string-lt str= str< str> str<= str>= int-str flo-str num-str int-flo flo-int tofloat toint tointz less greater |