From a6dfa73ce2833cb63ba83294b775ca305342fd6c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 15 Jun 2013 01:21:04 +0000
Subject: 	* 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.

---
 src/boot/strap/translator.clisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot/strap/translator.clisp')

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))
-- 
cgit v1.2.3