From 7eaa20a4c5cc2d376112bdc5c0ef921c588594dd Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Fri, 17 Apr 2009 18:04:41 -0500
Subject: [PATCH] fix stack effect of n*quot, use iota in core/slots

---
 basis/generalizations/generalizations-docs.factor | 4 ++--
 basis/generalizations/generalizations.factor      | 4 ++--
 core/slots/slots.factor                           | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/basis/generalizations/generalizations-docs.factor b/basis/generalizations/generalizations-docs.factor
index 2088e468c6..3671511194 100644
--- a/basis/generalizations/generalizations-docs.factor
+++ b/basis/generalizations/generalizations-docs.factor
@@ -272,8 +272,8 @@ HELP: nweave
 
 HELP: n*quot
 { $values
-     { "n" integer } { "seq" sequence }
-     { "seq'" sequence }
+     { "n" integer } { "quot" quotation }
+     { "quot'" quotation }
 }
 { $examples
     { $example "USING: generalizations prettyprint math ;"
diff --git a/basis/generalizations/generalizations.factor b/basis/generalizations/generalizations.factor
index 0aa042d4f2..637f958eb5 100644
--- a/basis/generalizations/generalizations.factor
+++ b/basis/generalizations/generalizations.factor
@@ -7,7 +7,7 @@ IN: generalizations
 
 <<
 
-: n*quot ( n seq -- seq' ) <repetition> concat >quotation ;
+: n*quot ( n quot -- seq' ) <repetition> concat >quotation ;
 
 : repeat ( n obj quot -- ) swapd times ; inline
 
@@ -94,4 +94,4 @@ MACRO: nweave ( n -- )
 : nappend-as ( n exemplar -- seq )
     [ narray concat ] dip like ; inline
 
-: nappend ( n -- seq ) narray concat ; inline
\ No newline at end of file
+: nappend ( n -- seq ) narray concat ; inline
diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index a353f50947..63c0319c1c 100755
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -222,7 +222,7 @@ M: slot-spec make-slot
     [ make-slot ] map ;
 
 : finalize-slots ( specs base -- specs )
-    over length [ + ] with map [ >>offset ] 2map ;
+    over length iota [ + ] with map [ >>offset ] 2map ;
 
 : slot-named ( name specs -- spec/f )
     [ name>> = ] with find nip ;