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

Cleanup

db4
Slava Pestov 2008-11-03 00:03:22 -06:00
parent 0d83873174
commit 1aefde994f
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,17 +53,8 @@ M: node maybe-modularize* 2drop ;
GENERIC: compute-modularized-values* ( node -- ) GENERIC: compute-modularized-values* ( node -- )
M: #call compute-modularized-values* M: #call compute-modularized-values*
dup word>> { dup word>> \ >fixnum eq?
{ [ \ >fixnum eq? ] [ in-d>> first maybe-modularize ] } [ in-d>> first maybe-modularize ] [ drop ] if ;
! { [
! {
! mod-integer-fixnum
! mod-integer-integer
! mod-fixnum-integer
! } memq?
! ] [ ] }
[ drop ]
} cond ;
M: node compute-modularized-values* drop ; M: node compute-modularized-values* drop ;