Remove math.ratios dependencyfrom alien.compiler

2007-10-31 21:51:38 -04:00 · 2007-10-31 21:51:38 -04:00 · 06519ea482
parent a01a7e4383
commit 06519ea482
1 changed files with 1 additions and 1 deletions
--- a/core/alien/compiler/compiler.factor
+++ b/core/alien/compiler/compiler.factor
@ -79,7 +79,7 @@ M: int-regs inc-reg-class

 M: float-regs inc-reg-class
    dup (inc-reg-class)
-    fp-shadows-int? [ reg-size 4 / int-regs +@ ] [ drop ] if ;
+    fp-shadows-int? [ reg-size cell /i int-regs +@ ] [ drop ] if ;

 : reg-class-full? ( class -- ? )
    dup class get swap param-regs length >= ;