diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 25 |
1 files changed, 6 insertions, 19 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index b77139be..e7986442 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -804,26 +804,13 @@ compDefineCapsuleFunction(df is ['DEF,form,signature,specialCases,body], sayBrightly ['" compiling ",localOrExported, :bright $op,'": ",:formattedSig] - if $newComp = true then - wholeBody := ['DEF, form, signature', specialCases, body] - T := CATCH('compCapsuleBody, newComp(wholeBody,$NoValueMode,e)) - or ["",rettype,e] - T := [T.expr.2.2, rettype, T.env] - if $newCompCompare=true then - oldT := CATCH('compCapsuleBody, compOrCroak(body,rettype,e)) - or ["",rettype,e] - SAY '"The old compiler generates:" - prTriple oldT - SAY '"The new compiler generates:" - prTriple T - else - T := CATCH('compCapsuleBody, compOrCroak(body,rettype,e)) - or ["",rettype,e] + T := CATCH('compCapsuleBody, compOrCroak(body,rettype,e)) + or ["",rettype,e] --+ - NRTassignCapsuleFunctionSlot($op,signature') - if $newCompCompare=true then - SAY '"The old compiler generates:" - prTriple T + NRTassignCapsuleFunctionSlot($op,signature') + if $newCompCompare=true then + SAY '"The old compiler generates:" + prTriple T -- A THROW to the above CATCH occurs if too many semantic errors occur -- see stackSemanticError catchTag:= MKQ GENSYM() |