ui.gadgets.controls: fix compilation

diff --git a/extra/ui/gadgets/controls/controls.factor b/extra/ui/gadgets/controls/controls.factor
index ebdb3bedc168473e3117a2edf23a8b2e468e106b..86021003acdc6ce9175e9b4ab99ccfc8bab97a43 100644 (file)
--- a/extra/ui/gadgets/controls/controls.factor
+++ b/extra/ui/gadgets/controls/controls.factor
@@ -58,7 +58,10 @@ M: model-field model-changed 2dup model*>> =
 
 : <slider> ( init page min max step -- slider ) <range> horizontal slider:<slider> ;
 
-: image-prep ( -- image ) scan current-vocab name>> "vocab:" "/icons/" surround ".tiff" surround <image-name> dup cached-image drop ;
+: image-prep ( -- image )
+    scan-token current-vocab name>> "vocab:" "/icons/" surround ".tiff" surround
+    <image-name> dup cached-image drop ;
+
 SYNTAX: IMG-MODEL-BTN: image-prep [ <model-btn> ] curry append! ;
 
 SYNTAX: IMG-BTN: image-prep [ swap <button> ] curry append! ;