diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-03-20 22:25:34 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-03-20 22:25:34 -0700 |
| commit | 6cdcff2307016b9f828d3101dc7302729a99b948 (patch) | |
| tree | 6b3ae9820979df54b8b061fabe187fb34b28679a /stdlib | |
| parent | 72964155b42047e78cf9a54633893b83aaa7e5d5 (diff) | |
| download | txr-6cdcff2307016b9f828d3101dc7302729a99b948.tar.gz txr-6cdcff2307016b9f828d3101dc7302729a99b948.tar.bz2 txr-6cdcff2307016b9f828d3101dc7302729a99b948.zip | |
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.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/constfun.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |