diff options
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/translator.clisp | 6 | ||||
| -rw-r--r-- | src/boot/translator.boot | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 50553932..11759bc9 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -448,9 +448,9 @@ (T (THROW :OPEN-AXIOM-CATCH-POINT #1#)))) (T #1#)))) (COND ((EQ |found| 'TRAPPED) NIL) - ((NOT (|bStreamNull| (|parserTokens| |ps|))) (|bpGeneralErrorHere|) - NIL) - ((NULL (|parserTrees| |ps|)) (|bpGeneralErrorHere|) NIL) + ((NOT (|bStreamNull| (|parserTokens| |ps|))) + (|bpGeneralErrorHere| |ps|) NIL) + ((NULL (|parserTrees| |ps|)) (|bpGeneralErrorHere| |ps|) NIL) (T (CAR (|parserTrees| |ps|))))))) (DEFUN |genDeclaration| (|n| |t|) diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 5f296b6a..7f347cdc 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -362,10 +362,10 @@ shoeOutParse toks == catch(e: BootParserException) => e found = 'TRAPPED => nil not bStreamNull parserTokens ps => - bpGeneralErrorHere() + bpGeneralErrorHere ps nil parserTrees ps = nil => - bpGeneralErrorHere() + bpGeneralErrorHere ps nil first parserTrees ps |