diff options
Diffstat (limited to 'src/boot/parser.boot')
| -rw-r--r-- | src/boot/parser.boot | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot index f1c8c8c2..d612a89e 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -988,7 +988,7 @@ bpDefinition ps == bpStoreName ps == $op := first parserTrees ps - $wheredefs := nil + sideConditions(parserLoadUnit ps) := nil $typings := nil true @@ -1020,9 +1020,10 @@ bpDefTail(ps,f) == or bpCompoundDefinitionTail(ps,f) bpWhere ps == - bpDefinition ps and - (bpEqKey(ps,"WHERE") and bpRequire(ps,function bpDefinitionItem) - and bpPush(ps,bfWhere(bpPop1 ps,bpPop1 ps)) or true) + bpDefinition ps and + (bpEqKey(ps,"WHERE") and bpRequire(ps,function bpDefinitionItem) + and bpPush(ps,bfWhere(parserLoadUnit ps,bpPop1 ps,bpPop1 ps)) + or true) bpDefinitionItem ps == a := bpState ps |