Resolved merge.

[factor.git] / basis / generalizations / generalizations.factor

diff --git a/basis/generalizations/generalizations.factor b/basis/generalizations/generalizations.factor
index 397166a4182af0bb28febe6fd5f38577a6fcb4d4..28a1f7dddb487d7c2e3995e91fa0e19d7ced3972 100644 (file)
--- a/basis/generalizations/generalizations.factor
+++ b/basis/generalizations/generalizations.factor
@@ -76,7 +76,7 @@ MACRO: ncleave ( quots n -- )
 MACRO: nspread ( quots n -- )
     over empty? [ 2drop [ ] ] [
         [ [ but-last ] dip ]
-        [ [ peek ] dip ] 2bi
+        [ [ last ] dip ] 2bi
         swap
         '[ [ _ _ nspread ] _ ndip @ ]
     ] if ;