steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix <slides> for new-book effect change

db4
Slava Pestov 2009-01-13 02:25:59 -06:00
parent b09763de2e
commit ce21719ccd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/slides/slides.factor
View File

@ -77,7 +77,7 @@ IN: slides
TUPLE: slides < book ; TUPLE: slides < book ;
: <slides> ( slides -- gadget ) : <slides> ( slides -- gadget )
[ <page> ] map 0 <model> slides new-book ; 0 <model> slides new-book [ <page> add-gadget ] reduce ;
: change-page ( book n -- ) : change-page ( book n -- )
over control-value + over children>> length rem over control-value + over children>> length rem