Updating code for make and fry changes

[factor.git] / extra / demos / demos.factor

diff --git a/extra/demos/demos.factor b/extra/demos/demos.factor
index 40149bafa992874a24b8f923a8d2da4fb7ebe9fe..b411df1e3072baa12d74db4511327ec4516ceb15 100644 (file)
--- a/extra/demos/demos.factor
+++ b/extra/demos/demos.factor
@@ -10,7 +10,7 @@ IN: demos
 : demo-vocabs ( -- seq ) "demos" tagged [ second ] map concat [ name>> ] map ;
 
 : <run-vocab-button> ( vocab-name -- button )
-  dup '[ drop [ , run ] call-listener ] <bevel-button> { 0 0 } >>align ;
+  dup '[ drop [ _ run ] call-listener ] <bevel-button> { 0 0 } >>align ;
 
 : <demo-runner> ( -- gadget )
   <pile> 1 >>fill demo-vocabs [ <run-vocab-button> add-gadget ] each ;