summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2022-11-25 18:36:56 -0800
committerKaz Kylheku <kaz@kylheku.com>2022-11-25 18:36:56 -0800
commiteb7855fe5d8d22c2b79a6d60a62913481350e4cf (patch)
treefcbcf74ab71072cbf16805e7e0de2b2a86b817bf
parent5974e3e4da9dcbec56723c398073f7859725aade (diff)
downloadtxr-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.tl10
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