json: fix a few usings

[factor.git] / extra / pdf / layout / layout.factor

diff --git a/extra/pdf/layout/layout.factor b/extra/pdf/layout/layout.factor
index 34327e9c62c15d4b87ca0280f97e6e663e8b9ad9..544064643262375e92aa2d8d0ec3e8878aa1859c 100644 (file)
--- a/extra/pdf/layout/layout.factor
+++ b/extra/pdf/layout/layout.factor
@@ -52,11 +52,11 @@ GENERIC: pdf-width ( canvas obj -- n )
 <PRIVATE
 
 : (pdf-layout) ( page obj -- page )
-    [ dup ] [
+    [ ] [
         dupd [ pdf-render ] with-string-writer
         '[ _ append ] [ change-stream ] curry dip
         [ [ , <canvas> ] when ] keep
-    ] while drop ;
+    ] while* ;
 
 PRIVATE>