diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/parse.boot | 3 | ||||
| -rw-r--r-- | src/interp/postpar.boot | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/parse.boot b/src/interp/parse.boot index 5f52ab4e..5309b271 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -36,6 +36,9 @@ import '"postpar" )package "BOOT" --% Transformation of Parser Output + +++ If non nil, holds the operator being being defined. +$defOp := nil parseTransform x == $defOp: local:= nil diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot index 93a886b3..149bbd75 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -135,7 +135,7 @@ postConstruct u == postError msg == BUMPERRORCOUNT 'precompilation xmsg:= - $defOp ^= '$defOp and not $InteractiveMode => [$defOp,'": ",:msg] + not null $defOp and not $InteractiveMode => [$defOp,'": ",:msg] msg $postStack:= [xmsg,:$postStack] nil |