steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core: use if* in a couple places.

db4
John Benediktsson 2014-11-29 16:03:50 -08:00
parent 43fcee0d75
commit a65a293896
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/alien/alien.factor
View File

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

5
core/words/words.factor
View File

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