From 23e3d955132e04a74e804da81890e7fe9390bc30 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 18 Aug 2012 23:57:06 +0000 Subject: * 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. --- src/boot/strap/translator.clisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/boot/strap') 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|) -- cgit v1.2.3