diff --git a/core/inference/transforms/transforms-tests.factor b/core/inference/transforms/transforms-tests.factor index b85c8b4600..476ca3de74 100755 --- a/core/inference/transforms/transforms-tests.factor +++ b/core/inference/transforms/transforms-tests.factor @@ -10,16 +10,6 @@ classes classes.tuple ; [ 6 ] [ 1 2 3 compose-n-test ] unit-test -[ 0 ] [ { } bitfield-quot call ] unit-test - -[ 256 ] [ 1 { 8 } bitfield-quot call ] unit-test - -[ 268 ] [ 3 1 { 8 2 } bitfield-quot call ] unit-test - -[ 268 ] [ 1 { 8 { 3 2 } } bitfield-quot call ] unit-test - -[ 512 ] [ 1 { { 1+ 8 } } bitfield-quot call ] unit-test - TUPLE: color r g b ; C: color diff --git a/extra/math/matrices/elimination/elimination.factor b/extra/math/matrices/elimination/elimination.factor index a902eda6f7..d4cab29f6a 100755 --- a/extra/math/matrices/elimination/elimination.factor +++ b/extra/math/matrices/elimination/elimination.factor @@ -11,7 +11,7 @@ SYMBOL: matrix : nth-row ( row# -- seq ) matrix get nth ; -: change-row ( row# quot -- | quot: seq -- seq ) +: change-row ( row# quot: ( seq -- seq ) -- ) matrix get swap change-nth ; inline : exchange-rows ( row# row# -- ) matrix get exchange ;