Fixing conflicts from stack checker changes

[factor.git] / extra / slides / slides.factor

diff --git a/extra/slides/slides.factor b/extra/slides/slides.factor
index ba21ba9c84180d87e78e6c25a7cfcf6f5cb33b13..4b2725fd97a2265c3fbfae383878e6f3603c04f0 100755 (executable)
--- a/extra/slides/slides.factor
+++ b/extra/slides/slides.factor
@@ -77,7 +77,7 @@ CONSTANT: stylesheet
 TUPLE: slides < book ;
 
 : <slides> ( slides -- gadget )
-    [ <page> ] map 0 <model> slides new-book ;
+    0 <model> slides new-book [ <page> add-gadget ] reduce ;
 
 : change-page ( book n -- )
     over control-value + over children>> length rem