factor: use ?call

[factor.git] / basis / compiler / codegen / gc-maps / gc-maps.factor

diff --git a/basis/compiler/codegen/gc-maps/gc-maps.factor b/basis/compiler/codegen/gc-maps/gc-maps.factor
index e373aa0745989b104d0e5108ef43ca06cc29e031..abfe6fa6edfb26225ea3c59ade1acbcfabff666d 100644 (file)
--- a/basis/compiler/codegen/gc-maps/gc-maps.factor
+++ b/basis/compiler/codegen/gc-maps/gc-maps.factor
@@ -8,7 +8,7 @@ IN: compiler.codegen.gc-maps
 SYMBOLS: return-addresses gc-maps ;
 
 : gc-map-needed? ( gc-map/f -- ? )
-    dup [ tuple-slots [ empty? ] all? not ] when ;
+    [ tuple-slots [ empty? ] all? not ] ?call ;
 
 : gc-map-here ( gc-map -- )
     dup gc-map-needed? [