diff options
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 42bcf4df..de919848 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -2250,17 +2250,16 @@ bootStrapError(functorForm,sourceFile) == registerInlinableDomain x == x is [ctor,:.] => - constructor? ctor => - nominateForInlining ctor - cosig := getDualSignature ctor or return nil - for a in x.args for t in cosig.source | t and a is [.,:.] repeat - registerInlinableDomain a ctor is ":" => registerInlinableDomain third x ctor is 'Enumeration => nil builtinFunctorName? ctor => for t in x.args repeat registerInlinableDomain t - nil + constructor? ctor => + nominateForInlining ctor + cosig := getDualSignature ctor or return nil + for a in x.args for t in cosig.source | t and a is [.,:.] repeat + registerInlinableDomain a nil compAdd(['add,$addForm,capsule],m,e) == |