demos: use <filled-pile>

diff --git a/extra/demos/demos.factor b/extra/demos/demos.factor
index 87f977d362a2704345738ba3a4ec758979149f10..b7076b67c39ba6d72acd5f1dab01b3c5cab38d5a 100644 (file)
--- a/extra/demos/demos.factor
+++ b/extra/demos/demos.factor
@@ -9,7 +9,7 @@ IN: demos
     dup '[ drop [ _ run ] \ run call-listener ] <border-button> ;
 
 : <demo-runner> ( -- gadget )
-    <pile> 1 >>fill { 2 2 } >>gap demo-vocabs [ <run-vocab-button> add-gadget ] each ;
+    <filled-pile> { 2 2 } >>gap demo-vocabs [ <run-vocab-button> add-gadget ] each ;
 
 MAIN-WINDOW: demos { { title "Demos" } }
     <demo-runner> { 2 2 } <border> <scroller> >>gadgets ;