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

remove >r r> from extra/roman

db4
Doug Coleman 2008-12-14 00:37:37 -06:00
parent c029e42222
commit ae1ebf58ac
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/roman/roman.factor
View File

@ -26,7 +26,7 @@ ERROR: roman-range-error n ;
: (>roman) ( n -- ) : (>roman) ( n -- )
roman-values roman-digits [ roman-values roman-digits [
>r /mod swap r> <repetition> concat % [ /mod swap ] dip <repetition> concat %
] 2each drop ; ] 2each drop ;
: (roman>) ( seq -- n ) : (roman>) ( seq -- n )
@ -56,7 +56,7 @@ PRIVATE>
[ roman> ] bi@ ; [ roman> ] bi@ ;
: binary-roman-op ( str1 str2 quot -- str3 ) : binary-roman-op ( str1 str2 quot -- str3 )
>r 2roman> r> call >roman ; inline [ 2roman> ] dip call >roman ; inline
PRIVATE> PRIVATE>
@ -73,6 +73,6 @@ PRIVATE>
[ /i ] binary-roman-op ; [ /i ] binary-roman-op ;
: roman/mod ( str1 str2 -- str3 str4 ) : roman/mod ( str1 str2 -- str3 str4 )
[ /mod ] binary-roman-op >r >roman r> ; [ /mod ] binary-roman-op [ >roman ] dip ;
: ROMAN: scan roman> parsed ; parsing : ROMAN: scan roman> parsed ; parsing