rename a word

2009-01-30 12:49:22 -06:00 · 2009-01-30 12:49:22 -06:00 · 4d15909fb7
parent fe886fc8f3
commit 4d15909fb7
1 changed files with 1 additions and 1 deletions
--- a/extra/benchmark/knucleotide/knucleotide.factor
+++ b/extra/benchmark/knucleotide/knucleotide.factor
@ -46,7 +46,7 @@ IN: benchmark.knucleotide
    tuck length
    small-groups H{ } tally
    at [ 0 ] unless*
-    number>string 8 CHAR: \s pad-right write ;
+    number>string 8 CHAR: \s pad-tail write ;

 : process-input ( input -- )
    dup 1 handle-table nl