Fixing various test failures and updating some more vocabs for >r/r> removal

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

diff --git a/extra/slides/slides.factor b/extra/slides/slides.factor
index dc8bdd4576ce004a25881aadf93994ea4d16a802..0ce946dc49e409e84c96cb2a8b3b71aa1238f0aa 100755 (executable)
--- a/extra/slides/slides.factor
+++ b/extra/slides/slides.factor
@@ -88,7 +88,7 @@ TUPLE: slides < book ;
 : prev-page ( book -- ) -1 change-page ;
 
 : (strip-tease) ( data n -- data )
-    >r first3 r> head 3array ;
+    [ first3 ] dip head 3array ;
 
 : strip-tease ( data -- seq )
     dup third length 1- [