diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-08-18 23:57:06 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-08-18 23:57:06 +0000 |
| commit | 23e3d955132e04a74e804da81890e7fe9390bc30 (patch) | |
| tree | 7f63971ab506c0a6c2ef86a74667e3b2ab329d91 /src/boot | |
| parent | 3c41ecf6c94ad09fa023c402c39d18c72a76812a (diff) | |
| download | open-axiom-23e3d955132e04a74e804da81890e7fe9390bc30.tar.gz | |
* boot/translator.boot (shoeOutParse): Fix thinko.
* lib/cfuns-c.c (oa_getcwd): Tidy.
(oa_spawn): Likewise.
* lib/sockio-c.c (send_string_len): Likewise.
* utils/command.cc (option_value): Likewise.
(execute_core): Likewise.
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 |