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

Remove identities on / and rem, which were no-ops because integer-derived-ops would return an empty array

db4
Slava Pestov 2011-10-09 13:51:03 -07:00
parent 97fa79d7fa
commit b4588629ab
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/tree/identities/identities.factor
View File

@ -8,7 +8,7 @@ compiler.tree.propagation.info ;
IN: compiler.tree.identities IN: compiler.tree.identities
: define-identities ( word identities -- ) : define-identities ( word identities -- )
[ integer-derived-ops ] dip [ integer-derived-ops dup empty? f assert= ] dip
'[ _ "identities" set-word-prop ] each ; '[ _ "identities" set-word-prop ] each ;
SYMBOL: X SYMBOL: X
@ -29,18 +29,10 @@ SYMBOL: X
{ { 0 X } drop } { { 0 X } drop }
} define-identities } define-identities
\ / {
{ { X 1 } drop }
} define-identities
\ mod { \ mod {
{ { X 1 } 0 } { { X 1 } 0 }
} define-identities } define-identities
\ rem {
{ { X 1 } 0 }
} define-identities
\ bitand { \ bitand {
{ { X -1 } drop } { { X -1 } drop }
{ { -1 X } nip } { { -1 X } nip }