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

less stack shuffling

db4
Doug Coleman 2009-03-28 15:02:28 -05:00
parent 5460a5375e
commit df4d652c0a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/roman/roman.factor
View File

@ -51,7 +51,7 @@ PRIVATE>
<PRIVATE <PRIVATE
MACRO: binary-roman-op ( quot -- quot' ) MACRO: binary-roman-op ( quot -- quot' )
dup infer [ in>> swap ] [ out>> ] bi [ infer in>> ] [ ] [ infer out>> ] tri
'[ [ roman> ] _ napply @ [ >roman ] _ napply ] ; '[ [ roman> ] _ napply @ [ >roman ] _ napply ] ;
PRIVATE> PRIVATE>