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

compiler.tree.modular-arithmetic: fix regression; set-alien-*-1 was not always open-coded

db4
Slava Pestov 2009-08-20 17:56:49 -05:00
parent 93c93a392b
commit 49bd2228ec
2 changed files with 3 additions and 2 deletions
basis/compiler
tests
tree/modular-arithmetic

3
basis/compiler/tests/optimizer.factor
View File

@ -424,4 +424,5 @@ M: object bad-dispatch-position-test* ;
] with-compilation-unit ] with-compilation-unit
] unit-test ] unit-test
[ t [ [ f ] [ 3 ] if >fixnum ] compile-call ] [ no-method? ] must-fail-with ! Not sure if I want to fix this...
! [ t [ [ f ] [ 3 ] if >fixnum ] compile-call ] [ no-method? ] must-fail-with

2
basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
View File

@ -172,7 +172,7 @@ MEMO: fixnum-coercion ( flags -- nodes )
] when ; ] when ;
: optimize-low-order-op ( #call -- nodes ) : optimize-low-order-op ( #call -- nodes )
dup in-d>> first fixnum-value? [ dup in-d>> first actually-defined-by [ value>> fixnum-value? ] all? [
[ ] [ in-d>> first ] [ info>> ] tri [ ] [ in-d>> first ] [ info>> ] tri
[ drop fixnum <class-info> ] change-at [ drop fixnum <class-info> ] change-at
] when ; ] when ;