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

remove >r r>

db4
Doug Coleman 2008-12-14 00:41:30 -06:00
parent 0329083970
commit 8887fbaa52
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/units/units.factor
View File

@ -81,7 +81,7 @@ M: dimensions-not-equal summary drop "Dimensions do not match" ;
: d= ( d d -- ? ) comparison-op number= ;
: d~ ( d d delta -- ? ) >r comparison-op r> ~ ;
: d~ ( d d delta -- ? ) [ comparison-op ] dip ~ ;
: d-min ( d d -- d ) [ d< ] most ;