From 700f8089ccf2986c6dc1a86036faa55452434e34 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 20 Mar 2023 22:25:34 -0700 Subject: compiler: recognize use function as constant-foldable * stdlib/constfun.tl (%const-foldable-funs%): use is a synonym of identity, which is listed; now use is also listed. --- stdlib/constfun.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/stdlib/constfun.tl b/stdlib/constfun.tl index 0520f184..bef32cc5 100644 --- a/stdlib/constfun.tl +++ b/stdlib/constfun.tl @@ -41,7 +41,7 @@ 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 first rest identity typeof atom null false true have + cdddddr first rest identity use typeof atom null false true have consp listp endp proper-listp length-list second third fourth fifth sixth seventh eighth ninth tenth nthcdr nth tailp memq memql memqual rmemq rmemql rmemqual countq countql countqual -- cgit v1.2.3