From a65a2938969a3467878408a48f116c05e101c0ee Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 29 Nov 2014 16:03:50 -0800
Subject: [PATCH] core: use if* in a couple places.

---
 core/alien/alien.factor | 2 +-
 core/words/words.factor | 5 ++---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 7d2c242b81..2d5e071a3c 100755
--- a/core/alien/alien.factor
+++ b/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 ;
diff --git a/core/words/words.factor b/core/words/words.factor
index d1cdd8b825..8be802cde1 100644
--- a/core/words/words.factor
+++ b/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 ;