diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index dc3ba3af..e79aba6b 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1221,7 +1221,9 @@ expandableDefinition?(vars,body) == or semiSimpleRelativeTo?(body,$simpleVMoperators) => usesVariablesLinearly?(body,vars') false - expand? => ["XLAM",vars',body] + expand? => + body is [fun,: =vars'] and symbol? fun => fun + ['XLAM,vars',body] nil ++ Replace all SPADCALLs to operations defined in the current |