diff options
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index c7274eb8..bec24a42 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1005,6 +1005,10 @@ replaceSimpleFunctions form == NBUTLAST form -- 2.2. the substitution case. fun' is ["XLAM",parms,body] => + -- Inline almost constant functions. + null parms => body + -- Identity function toos. + parms is [=body] => first args -- conservatively approximate eager semantics and/[isAtomicForm first as for as in tails args] => -- alpha rename before substitution. |