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

[factor.git] / basis / gobject-introspection / types / types.factor

diff --git a/basis/gobject-introspection/types/types.factor b/basis/gobject-introspection/types/types.factor
index aa0e9f50b0e5e9f8dc725a741216b5259dae5319..67be2149866f24ff059bdafff345e23bddd351dc 100644 (file)
--- a/basis/gobject-introspection/types/types.factor
+++ b/basis/gobject-introspection/types/types.factor
@@ -78,8 +78,9 @@ PREDICATE: fixed-size-array-type < c-array-type fixed-size>> >boolean ;
 ERROR: unknown-type-error type ;
 
 : get-type-info ( data-type -- info )
-    qualified-type-name dup type-infos get-global at
-    [ ] [ unknown-type-error ] ?if ;
+    qualified-type-name
+    [ type-infos get-global at ]
+    [ unknown-type-error ] ?unless ;
 
 : find-type-info ( data-type -- info/f )
     qualified-type-name type-infos get-global at ;