core: use if* in a couple places.

core/alien/alien.factor

@@ -117,7 +117,7 @@ SYMBOL: callbacks
 TUPLE: expiry-check object alien ;
 
 : recompute-value? ( check -- ? )
-    dup [ alien>> expired? ] [ drop t ] if ;
+    [ alien>> expired? ] [ t ] if* ;
 
 : delete-values ( value assoc -- )
     [ rot drop = not ] with assoc-filter! drop ;

core/words/words.factor

@@ -212,12 +212,11 @@ ERROR: bad-create name vocab ;
 
 : create ( name vocab -- word )
     check-create 2dup lookup-word
-    dup [ 2nip ] [
-        drop
+    [ 2nip ] [
         vocab-name <word>
         dup reveal
         dup changed-definition
-    ] if ;
+    ] if* ;
 
 : constructor-word ( name vocab -- word )
     [ "<" ">" surround ] dip create ;