Updating code for make and fry changes

[factor.git] / basis / ui / gadgets / tracks / tracks.factor

diff --git a/basis/ui/gadgets/tracks/tracks.factor b/basis/ui/gadgets/tracks/tracks.factor
index cf679424e09370f09e094c0af96703a1c81da3aa..029bc5447cc0b712bdba49a0a400396b34793949 100644 (file)
--- a/basis/ui/gadgets/tracks/tracks.factor
+++ b/basis/ui/gadgets/tracks/tracks.factor
@@ -9,7 +9,7 @@ IN: ui.gadgets.tracks
 TUPLE: track < pack sizes ;
 
 : normalized-sizes ( track -- seq )
-  sizes>> dup sift sum '[ dup [ , / ] when ] map ;
+  sizes>> dup sift sum '[ dup [ _ / ] when ] map ;
 
 : init-track ( track -- track )
   init-gadget