diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-15 01:21:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-15 01:21:04 +0000 |
| commit | a6dfa73ce2833cb63ba83294b775ca305342fd6c (patch) | |
| tree | 28cde9e5511f50cd0dfd148f6e2f5af03e715d35 /src/boot/strap/translator.clisp | |
| parent | c35033aee6d48c9abf251594f7567026d5ef9204 (diff) | |
| download | open-axiom-a6dfa73ce2833cb63ba83294b775ca305342fd6c.tar.gz | |
* interp/nruncomp.boot (NRTsetVector4Part1): Add environment parameter.
Adjust caller.
(NRTsetVector4a): Likewise. Avoid special variable for environment.
* boot/utility.boot: Add and export substSource, substTarget.
* interp/define.boot: Use them.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -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 d3f85676..99d7f82a 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -416,7 +416,7 @@ (SETQ |ps| (|makeParserState| |toks|)) (|bpFirstTok| |ps|) (SETQ |found| - (LET ((#1=#:G729 + (LET ((#1=#:G736 (CATCH :OPEN-AXIOM-CATCH-POINT (|bpOutItem| |ps|)))) (COND ((AND (CONSP #1#) (EQUAL (CAR #1#) :OPEN-AXIOM-CATCH-POINT)) |