diff options
Diffstat (limited to 'src/interp/cparse.boot')
-rw-r--r-- | src/interp/cparse.boot | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/src/interp/cparse.boot b/src/interp/cparse.boot index ab364fc7..11118d31 100644 --- a/src/interp/cparse.boot +++ b/src/interp/cparse.boot @@ -826,17 +826,9 @@ npDefaultValue()== (npDefinitionOrStatement() or npTrap()) and npPush [pfAdd(pfNothing(),npPop1(),pfNothing())] -npWith(extra)== - npEqKey "WITH" => - a := npState() - npCategoryL() or npTrap() - npEqPeek "IN" => - npRestore a - (npVariable() or npTrap()) and - npCompMissing "IN" and - (npCategoryL() or npTrap()) and - npPush pfWith(npPop2(),npPop1(),extra) - npPush pfWith(pfNothing(),npPop1(),extra) +npWith extra == + npEqKey "WITH" and (npCategoryL() or npTrap()) and + npPush pfWith(extra,npPop1()) npCategoryL()== npCategory() and npPush pfUnSequence npPop1 () |