factor: use ??if instead of ?if-old

[factor.git] / extra / images / viewer / viewer.factor

diff --git a/extra/images/viewer/viewer.factor b/extra/images/viewer/viewer.factor
index 12aa08f226f971a7fb48a142a4390c833be2fa56..e3cf09102ac63ab301c02e82a96c13bfd561216b 100644 (file)
--- a/extra/images/viewer/viewer.factor
+++ b/extra/images/viewer/viewer.factor
@@ -14,7 +14,7 @@ M: image-gadget pref-dim* image>> [ image-dim ] [ { 640 480 } ] if* ;
 : (image-gadget-texture) ( gadget -- texture )
     dup image>> { 0 0 } <texture> >>texture texture>> ;
 : image-gadget-texture ( gadget -- texture )
-    dup texture>> [ ] [ (image-gadget-texture) ] ?if ;
+    [ texture>> ] [ (image-gadget-texture) ] ?unless ;
 
 M: image-gadget draw-gadget* ( gadget -- )
     dup image>> [