From e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 4 Aug 2011 01:15:12 +0000
Subject: 	* boot/ast.boot (bfSTEP): Synthetize artificial variable for 
 unnamed loop index.

---
 src/boot/ast.boot        | 2 ++
 src/boot/strap/ast.clisp | 1 +
 2 files changed, 3 insertions(+)

(limited to 'src/boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index 1af82d64..3cc190ae 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -267,6 +267,8 @@ bfForTree(OP,lhs,whole)==
  
  
 bfSTEP(id,fst,step,lst)==
+  if id is "DOT" then
+    id := bfGenSymbol()
   initvar := [id]
   initval := [fst]
   inc :=
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 8a8a75d7..10dea59c 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -367,6 +367,7 @@
   (PROG (|suc| |ex| |pred| |final| |g2| |inc| |g1| |initval| |initvar|)
     (RETURN
       (PROGN
+        (COND ((EQ |id| 'DOT) (SETQ |id| (|bfGenSymbol|))))
         (SETQ |initvar| (LIST |id|))
         (SETQ |initval| (LIST |fst|))
         (SETQ |inc|
-- 
cgit v1.2.3