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 | 700f8089ccf2986c6dc1a86036faa55452434e34 (patch) | |
| tree | 6b3ae9820979df54b8b061fabe187fb34b28679a | |
| parent | 53f5ec1bf8b7362fcacb652c259553a5bf4b5d5b (diff) | |
| download | txr-700f8089ccf2986c6dc1a86036faa55452434e34.tar.gz txr-700f8089ccf2986c6dc1a86036faa55452434e34.tar.bz2 txr-700f8089ccf2986c6dc1a86036faa55452434e34.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.
| -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 |