diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-19 00:42:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-19 00:42:27 +0000 |
| commit | abd2b49e66adf06d16d6664526f693e67bdaf719 (patch) | |
| tree | 8a7652a010f107d37926b2a5636f826a2ec298d6 /src/boot/strap | |
| parent | 0b00c2ae8f58ce6d812f6ce3fbfecc19db7ffd3f (diff) | |
| download | open-axiom-abd2b49e66adf06d16d6664526f693e67bdaf719.tar.gz | |
* boot/translator.boot (BOOTTOCL): Replace Lisp-level contruct
with try/finally.
(BOOTTOCLC): Likewise.
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/translator.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index c9b972c4..e96bf98a 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -507,7 +507,7 @@ (SETQ |$bpParenCount| 0) (|bpFirstTok|) (SETQ |found| - (LET ((#0=#:G1354 + (LET ((#0=#:G1356 (CATCH :OPEN-AXIOM-CATCH-POINT (|bpOutItem|)))) (COND ((AND (CONSP #0#) |