diff options
author | dos-reis <gdr@axiomatics.org> | 2008-01-13 18:21:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-01-13 18:21:21 +0000 |
commit | ef479d62b3218ebc50dd470efd04cb5607a276d1 (patch) | |
tree | 06c7242a02de5584d18e51ddba6dae70c5a6747e /src/interp | |
parent | 48dd06b3020b5ff471da669acb961bf6935bda42 (diff) | |
download | open-axiom-ef479d62b3218ebc50dd470efd04cb5607a276d1.tar.gz |
Fix SF/1867459
* interp/postpar.boot (postError): Fix thinko.
* interp/parse.boot ($defOp): Define.
* testsuite/compiler/1867459.spad: New.
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 |