[Factor-builds] mason on windows-x86-64: 25251da -- dirty

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

<div><h1>Build report for windows/x86.64</h1>
    <table>
    <tr><td>Build machine:</td><td>jasperbox</td></tr>
    <tr><td>Disk usage:</td><td>459.75Gi used, 16.34Gi avail, 476.08Gi total, 3.43% free</td></tr>
    <tr><td>Build directory:</td><td>C:\Users\Doug/builds/2022-01-22-19-43</td></tr>
    <tr><td>GIT ID:</td><td><a href="http://github.com/factor/factor/commit/25251da8445cb2841ab31c8ba23af74c36541934">25251da8445cb2841ab31c8ba23af74c36541934</a></td></tr>
    </table><h2>Timings</h2> <table><tr><td>boot-time</td><td>00:11:57</td></tr><tr><td>load-time</td><td>00:36:04</td></tr><tr><td>test-time</td><td>01:06:49</td></tr><tr><td>help-lint-time</td><td>00:00:39</td></tr><tr><td>benchmark-time</td><td>00:19:30</td></tr><tr><td>html-help-time</td><td>00:09:00</td></tr></table><h1>Compiler errors</h1> <ul><li>resource:basis/math/matrices/matrices.factor</li><li>resource:extra/math/transforms/fft/fft.factor</li><li>resource:extra/tensors/tensors.factor</li></ul> Details: <pre>
==== resource:basis/math/matrices/matrices.factor

resource:basis/math/matrices/matrices.factor: 123

Asset: unshaped-cols-iota

Stack effect declaration is wrong
inferred ( x -- x x )
declared ( matrix -- cols-iota )

resource:basis/math/matrices/matrices.factor: 135

Asset: anti-transpose

The input quotations to “if” don't match their expected effects
Input                  Expected       Got
[ matrix-cols-iota ]   ( ..a -- ..b ) ( x -- x )
[ unshaped-cols-iota ] ( ..a -- ..b ) ( x -- x x )

==== resource:extra/math/transforms/fft/fft.factor

resource:extra/math/transforms/fft/fft.factor: 21

Asset: (fast-fft)

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )

resource:extra/math/transforms/fft/fft.factor: 33

Asset: (fft)

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )

resource:extra/math/transforms/fft/fft.factor: 41

Asset: fft

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )

resource:extra/math/transforms/fft/fft.factor: 44

Asset: ifft

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )

==== resource:extra/tensors/tensors.factor

resource:extra/tensors/tensors.factor: 365

Asset: hstack-unsafe

Stack effect declaration is wrong
inferred ( x -- x x )
declared ( tseq -- tensor )
</pre><h1>Unit test failures</h1> <ul><li>resource:basis/compiler/tree/cleanup/cleanup-tests.factor</li><li>resource:basis/compiler/tree/recursive/recursive-tests.factor</li><li>resource:basis/math/matrices/matrices-tests.factor</li><li>resource:basis/pack/pack-tests.factor</li><li>resource:extra/math/matrices/extras/extras-tests.factor</li><li>resource:extra/math/transforms/fft/fft-tests.factor</li><li>resource:extra/sequences/extras/extras-tests.factor</li><li>resource:extra/tensors/tensors-tests.factor</li></ul> Details: <pre>
==== resource:basis/compiler/tree/cleanup/cleanup-tests.factor

resource:basis/compiler/tree/cleanup/cleanup-tests.factor: 350

Unit Test: {
    { t }
    [
        [ { integer } declare &lt;iota&gt; [ ] map ] \ integer&gt;fixnum
        inlined?
    ]
}

=== Expected:
t
=== Got:
f
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t }
        [ ~quotation~ cleaned-up-tree ~quotation~ contains-node? ]
        \ (unit-test) 16 experiment
        { f }
        [ ~quotation~ cleaned-up-tree ~quotation~ contains-node? ]
        \ (unit-test) 18 experiment
        { f }
        [ ~quotation~ cleaned-up-tree ~quotation~ contains-node? ]
        \ (unit-test) 20 experiment
        { t }
        [ ~quotation~ cleaned-up-tree ~quotation~ contains-node? ]
        \ (unit-test) 22 experiment
        { t }
        [ ~quotation~ cleaned-up-tree ~quotation~ contains-node? ]
        \ (unit-test) 26 experiment
        { f }
        [ ~quotation~ cleaned-up-tree ~quotation~ contains-node? ]
        \ (unit-test) 28 experiment
        { t }
        [ ~quotation~ cleaned-up-tree ~quotation~ contains-node? ]
        \ (unit-test) 30 experiment
        { f } [ ~quotation~ \ &gt;fixnum inlined? ] \ (unit-test) 35
        experiment
        { t } [ ~quotation~ \ detect-f inlined? ] \ (unit-test) 49
        experiment
        { t } [ ~quotation~ \ xyz inlined? ] \ (unit-test) 59
        experiment
        { t } [ ~quotation~ \ xyz inlined? ] \ (unit-test) 64
        experiment
        { t } [ ~quotation~ \ + inlined? ] \ (unit-test) 80
        experiment
        { t } [ ~quotation~ \ xyz inlined? ] \ (unit-test) 93
        experiment
        { t } [ ~quotation~ \ fixnum+ inlined? ] \ (unit-test) 97
        experiment
        { t } [ ~quotation~ \ + inlined? ] \ (unit-test) 102
        experiment
        { t } [ ~quotation~ \ + inlined? ] \ (unit-test) 107
        experiment
        { t } [ ~quotation~ \ &gt;= inlined? ] \ (unit-test) 111
        experiment
        { t } [ ~quotation~ \ + inlined? ] \ (unit-test) 115
        experiment
        { t } [ ~quotation~ \ fixnum+ inlined? ] \ (unit-test) 119
        experiment
        { t } [ ~quotation~ \ + inlined? ] \ (unit-test) 124
        ~345 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

==== resource:basis/compiler/tree/recursive/recursive-tests.factor

resource:basis/compiler/tree/recursive/recursive-tests.factor: 55

Unit Test: {
    { t }
    [
        [ [ loop-test-1 ] each ] build-tree analyze-recursive
        \ (each-integer) label-is-loop?
    ]
}

=== Expected:
t
=== Got:
f
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~array~ } [ f ~array~ (tail-calls) ] \ (unit-test) 9
        experiment
        { ~array~ } [ t ~array~ (tail-calls) ] \ (unit-test) 10
        experiment
        { ~array~ } [ t ~array~ (tail-calls) ] \ (unit-test) 11
        experiment
        { ~array~ } [ t ~array~ (tail-calls) ] \ (unit-test) 12
        experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-1
            label-is-loop?
        ] \ (unit-test) 40 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-1
            label-is-loop?
        ] \ (unit-test) 45 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-1
            label-is-loop?
        ] \ (unit-test) 50 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive
            \ (each-integer) label-is-loop?
        ] \ (unit-test) 55 experiment =&gt;
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-2
            label-is-not-loop?
        ] \ (unit-test) 63 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-3
            label-is-not-loop?
        ] \ (unit-test) 71 experiment
        { f } [
            ~quotation~ build-tree analyze-recursive ~quotation~
            contains-node?
        ] \ (unit-test) 78 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ a
            label-is-loop?
        ] \ (unit-test) 93 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ b
            label-is-loop?
        ] \ (unit-test) 98 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ a
            label-is-loop?
        ] \ (unit-test) 103 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ b
            label-is-loop?
        ] \ (unit-test) 108 experiment
        { f } [
            ~quotation~ build-tree analyze-recursive \ a'
            label-is-loop?
        ] \ (unit-test) 121 experiment
        { f } [
            ~quotation~ build-tree analyze-recursive \ b'
            label-is-loop?
        ] \ (unit-test) 126 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ a'
            label-is-loop?
        ] \ (unit-test) 135 experiment
        { f } [
            ~quotation~ build-tree analyze-recursive \ b'
            label-is-loop?
        ] \ (unit-test) 140 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ a''
            label-is-not-loop?
        ] \ (unit-test) ~47 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:basis/compiler/tree/recursive/recursive-tests.factor: 179

Unit Test: {
    { t }
    [
        [ 10 [ [ drop ] each-integer ] loop-in-non-loop ]
        build-tree analyze-recursive \ (each-integer)
        label-is-loop?
    ]
}

=== Expected:
t
=== Got:
f
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~array~ } [ f ~array~ (tail-calls) ] \ (unit-test) 9
        experiment
        { ~array~ } [ t ~array~ (tail-calls) ] \ (unit-test) 10
        experiment
        { ~array~ } [ t ~array~ (tail-calls) ] \ (unit-test) 11
        experiment
        { ~array~ } [ t ~array~ (tail-calls) ] \ (unit-test) 12
        experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-1
            label-is-loop?
        ] \ (unit-test) 40 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-1
            label-is-loop?
        ] \ (unit-test) 45 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-1
            label-is-loop?
        ] \ (unit-test) 50 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive
            \ (each-integer) label-is-loop?
        ] \ (unit-test) 55 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-2
            label-is-not-loop?
        ] \ (unit-test) 63 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ loop-test-3
            label-is-not-loop?
        ] \ (unit-test) 71 experiment
        { f } [
            ~quotation~ build-tree analyze-recursive ~quotation~
            contains-node?
        ] \ (unit-test) 78 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ a
            label-is-loop?
        ] \ (unit-test) 93 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ b
            label-is-loop?
        ] \ (unit-test) 98 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ a
            label-is-loop?
        ] \ (unit-test) 103 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ b
            label-is-loop?
        ] \ (unit-test) 108 experiment
        { f } [
            ~quotation~ build-tree analyze-recursive \ a'
            label-is-loop?
        ] \ (unit-test) 121 experiment
        { f } [
            ~quotation~ build-tree analyze-recursive \ b'
            label-is-loop?
        ] \ (unit-test) 126 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ a'
            label-is-loop?
        ] \ (unit-test) 135 experiment
        { f } [
            ~quotation~ build-tree analyze-recursive \ b'
            label-is-loop?
        ] \ (unit-test) 140 experiment
        { t } [
            ~quotation~ build-tree analyze-recursive \ a''
            label-is-not-loop?
        ] \ (unit-test) 153 ~47 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

==== resource:basis/math/matrices/matrices-tests.factor

resource:basis/math/matrices/matrices-tests.factor: 387

Unit Test: {
    { { 1 2 3 4 } }
    [
        { 1 2 3 4 } &lt;anti-diagonal-matrix&gt; anti-transpose
        anti-diagonal
    ]
}

The word anti-transpose cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                  Expected       Got
[ matrix-cols-iota ]   ( ..a -- ..b ) ( x -- x )
[ unshaped-cols-iota ] ( ..a -- ..b ) ( x -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 14
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 15
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 16
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 17
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 18
        experiment
        { f } [ ~array~ regular-matrix? ] \ (unit-test) 19
        experiment
        { f } [ ~array~ regular-matrix? ] \ (unit-test) 20
        experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 23 experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 24 experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 25 experiment
        { f } [ ~array~ square-matrix? ] \ (unit-test) 26 experiment
        { f } [ ~array~ square-matrix? ] \ (unit-test) 27 experiment
        { t } [ ~array~ ~quotation~ all? ] \ (unit-test) 38
        experiment
        { f } [ ~array~ ~quotation~ any? ] \ (unit-test) 46
        experiment
        { t } [ 10 dup &lt;zero-matrix&gt; zero-matrix? ] \ (unit-test) 48
        experiment
        { t } [ 10 10 15 &lt;simple-eye&gt; zero-matrix? ] \ (unit-test)
        49 experiment
        { t } [ 0 dup &lt;zero-matrix&gt; null-matrix? ] \ (unit-test) 50
        experiment
        { f } [ 0 dup &lt;zero-matrix&gt; zero-matrix? ] \ (unit-test) 51
        experiment
        { f } [ 4 &lt;identity-matrix&gt; zero-matrix? ] \ (unit-test) 52
        experiment
        { f } [ ~array~ zero-matrix? ] \ (unit-test) 54 ~507 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [
        { 1 2 3 4 } &lt;anti-diagonal-matrix&gt; anti-transpose =&gt;
        anti-diagonal
    ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:basis/math/matrices/matrices-tests.factor: 388

Unit Test: {
    { t }
    [ 50 &lt;iota&gt; &lt;anti-diagonal-matrix&gt; dup anti-transpose = ]
}

The word anti-transpose cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                  Expected       Got
[ matrix-cols-iota ]   ( ..a -- ..b ) ( x -- x )
[ unshaped-cols-iota ] ( ..a -- ..b ) ( x -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 14
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 15
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 16
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 17
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 18
        experiment
        { f } [ ~array~ regular-matrix? ] \ (unit-test) 19
        experiment
        { f } [ ~array~ regular-matrix? ] \ (unit-test) 20
        experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 23 experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 24 experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 25 experiment
        { f } [ ~array~ square-matrix? ] \ (unit-test) 26 experiment
        { f } [ ~array~ square-matrix? ] \ (unit-test) 27 experiment
        { t } [ ~array~ ~quotation~ all? ] \ (unit-test) 38
        experiment
        { f } [ ~array~ ~quotation~ any? ] \ (unit-test) 46
        experiment
        { t } [ 10 dup &lt;zero-matrix&gt; zero-matrix? ] \ (unit-test) 48
        experiment
        { t } [ 10 10 15 &lt;simple-eye&gt; zero-matrix? ] \ (unit-test)
        49 experiment
        { t } [ 0 dup &lt;zero-matrix&gt; null-matrix? ] \ (unit-test) 50
        experiment
        { f } [ 0 dup &lt;zero-matrix&gt; zero-matrix? ] \ (unit-test) 51
        experiment
        { f } [ 4 &lt;identity-matrix&gt; zero-matrix? ] \ (unit-test) 52
        experiment
        { f } [ ~array~ zero-matrix? ] \ (unit-test) 54 ~507 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [ 50 &lt;iota&gt; &lt;anti-diagonal-matrix&gt; dup anti-transpose =&gt; = ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:basis/math/matrices/matrices-tests.factor: 389

Unit Test: {
    { { 4 3 2 1 } }
    [
        { 1 2 3 4 } &lt;diagonal-matrix&gt; anti-transpose
        main-diagonal
    ]
}

The word anti-transpose cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                  Expected       Got
[ matrix-cols-iota ]   ( ..a -- ..b ) ( x -- x )
[ unshaped-cols-iota ] ( ..a -- ..b ) ( x -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 14
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 15
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 16
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 17
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 18
        experiment
        { f } [ ~array~ regular-matrix? ] \ (unit-test) 19
        experiment
        { f } [ ~array~ regular-matrix? ] \ (unit-test) 20
        experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 23 experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 24 experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 25 experiment
        { f } [ ~array~ square-matrix? ] \ (unit-test) 26 experiment
        { f } [ ~array~ square-matrix? ] \ (unit-test) 27 experiment
        { t } [ ~array~ ~quotation~ all? ] \ (unit-test) 38
        experiment
        { f } [ ~array~ ~quotation~ any? ] \ (unit-test) 46
        experiment
        { t } [ 10 dup &lt;zero-matrix&gt; zero-matrix? ] \ (unit-test) 48
        experiment
        { t } [ 10 10 15 &lt;simple-eye&gt; zero-matrix? ] \ (unit-test)
        49 experiment
        { t } [ 0 dup &lt;zero-matrix&gt; null-matrix? ] \ (unit-test) 50
        experiment
        { f } [ 0 dup &lt;zero-matrix&gt; zero-matrix? ] \ (unit-test) 51
        experiment
        { f } [ 4 &lt;identity-matrix&gt; zero-matrix? ] \ (unit-test) 52
        experiment
        { f } [ ~array~ zero-matrix? ] \ (unit-test) 54 ~507 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [
        { 1 2 3 4 } &lt;diagonal-matrix&gt; anti-transpose =&gt;
        main-diagonal
    ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:basis/math/matrices/matrices-tests.factor: 399

Unit Test: {
    { { { 9 6 3 } { 8 5 2 } { 7 4 1 } } }
    [ { { 1 2 3 } { 4 5 6 } { 7 8 9 } } anti-transpose ]
}

The word anti-transpose cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                  Expected       Got
[ matrix-cols-iota ]   ( ..a -- ..b ) ( x -- x )
[ unshaped-cols-iota ] ( ..a -- ..b ) ( x -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 14
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 15
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 16
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 17
        experiment
        { t } [ ~array~ regular-matrix? ] \ (unit-test) 18
        experiment
        { f } [ ~array~ regular-matrix? ] \ (unit-test) 19
        experiment
        { f } [ ~array~ regular-matrix? ] \ (unit-test) 20
        experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 23 experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 24 experiment
        { t } [ ~array~ square-matrix? ] \ (unit-test) 25 experiment
        { f } [ ~array~ square-matrix? ] \ (unit-test) 26 experiment
        { f } [ ~array~ square-matrix? ] \ (unit-test) 27 experiment
        { t } [ ~array~ ~quotation~ all? ] \ (unit-test) 38
        experiment
        { f } [ ~array~ ~quotation~ any? ] \ (unit-test) 46
        experiment
        { t } [ 10 dup &lt;zero-matrix&gt; zero-matrix? ] \ (unit-test) 48
        experiment
        { t } [ 10 10 15 &lt;simple-eye&gt; zero-matrix? ] \ (unit-test)
        49 experiment
        { t } [ 0 dup &lt;zero-matrix&gt; null-matrix? ] \ (unit-test) 50
        experiment
        { f } [ 0 dup &lt;zero-matrix&gt; zero-matrix? ] \ (unit-test) 51
        experiment
        { f } [ 4 &lt;identity-matrix&gt; zero-matrix? ] \ (unit-test) 52
        experiment
        { f } [ ~array~ zero-matrix? ] \ (unit-test) 54 ~507 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

==== resource:basis/pack/pack-tests.factor

resource:basis/pack/pack-tests.factor: 21

Unit Test: {
    { { 1 2 3 4 5 } }
    [ { 1 2 3 4 5 } "cstiq" [ pack-le ] keep unpack-le ]
}

=== Expected:
{ 1 2 3 4 5 }
=== Got:
{ 1 2 50331648 4 5 }
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~byte-array~ } [ ~array~ "cstiq" pack-be ] \ (unit-test) 7
        experiment
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-be ]
        \ (unit-test) 12 experiment
        { ~byte-array~ } [ ~array~ "cstiq" pack-le ] \ (unit-test)
        16 experiment
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
        \ (unit-test) 21 experiment =&gt;
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
        \ (unit-test) 26 experiment
        { ~array~ } [ ~array~ "cstiqd" ~quotation~ keep unpack-be ]
        \ (unit-test) 31 experiment
        { ~array~ }
        [ ~array~ "cstiq" ~quotation~ keep unpack-native ]
        \ (unit-test) 36 experiment
        { ~byte-array~ } [ ~array~ "4ci" pack-le ] \ (unit-test) 38
        experiment
        { ~array~ } [ ~byte-array~ "4ci" unpack-le ] \ (unit-test)
        39 experiment
        { 9 } [ "iic" packed-length ] \ (unit-test) 41 experiment
        [ "iii" read-packed-le ] \ (must-infer) 42 experiment
        [ "iii" read-packed-be ] \ (must-infer) 43 experiment
        [ "iii" read-packed-native ] \ (must-infer) 44 experiment
        [ "iii" unpack-le ] \ (must-infer) 45 experiment
        [ "iii" unpack-be ] \ (must-infer) 46 experiment
        [ "iii" unpack-native ] \ (must-infer) 47 experiment
        [ "iii" pack ] \ (must-infer) 48 experiment
        [ "iii" unpack ] \ (must-infer) 49 experiment
        [ "iii" pack ] \ (must-infer) 51 experiment
        { "c" } [ "1c" expand-pack-format ] \ (unit-test) 53
        experiment
        { "cccc" } [ "4c" expand-pack-format ] \ (unit-test) 54
        experiment
        { "cccccccccccc" } [ "12c" expand-pack-format ] ~13 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:basis/pack/pack-tests.factor: 26

Unit Test: {
    { { -1 -2 -3 -4 -5 } }
    [ { -1 -2 -3 -4 -5 } "cstiq" [ pack-le ] keep unpack-le ]
}

=== Expected:
{ -1 -2 -3 -4 -5 }
=== Got:
{ -1 -2 281474926379008 -4 -5 }
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~byte-array~ } [ ~array~ "cstiq" pack-be ] \ (unit-test) 7
        experiment
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-be ]
        \ (unit-test) 12 experiment
        { ~byte-array~ } [ ~array~ "cstiq" pack-le ] \ (unit-test)
        16 experiment
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
        \ (unit-test) 21 experiment
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
        \ (unit-test) 26 experiment =&gt;
        { ~array~ } [ ~array~ "cstiqd" ~quotation~ keep unpack-be ]
        \ (unit-test) 31 experiment
        { ~array~ }
        [ ~array~ "cstiq" ~quotation~ keep unpack-native ]
        \ (unit-test) 36 experiment
        { ~byte-array~ } [ ~array~ "4ci" pack-le ] \ (unit-test) 38
        experiment
        { ~array~ } [ ~byte-array~ "4ci" unpack-le ] \ (unit-test)
        39 experiment
        { 9 } [ "iic" packed-length ] \ (unit-test) 41 experiment
        [ "iii" read-packed-le ] \ (must-infer) 42 experiment
        [ "iii" read-packed-be ] \ (must-infer) 43 experiment
        [ "iii" read-packed-native ] \ (must-infer) 44 experiment
        [ "iii" unpack-le ] \ (must-infer) 45 experiment
        [ "iii" unpack-be ] \ (must-infer) 46 experiment
        [ "iii" unpack-native ] \ (must-infer) 47 experiment
        [ "iii" pack ] \ (must-infer) 48 experiment
        [ "iii" unpack ] \ (must-infer) 49 experiment
        [ "iii" pack ] \ (must-infer) 51 experiment
        { "c" } [ "1c" expand-pack-format ] \ (unit-test) 53
        experiment
        { "cccc" } [ "4c" expand-pack-format ] \ (unit-test) 54
        experiment
        { "cccccccccccc" } [ "12c" expand-pack-format ] ~13 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:basis/pack/pack-tests.factor: 36

Unit Test: {
    { { -1 -2 -3 -4 -5 } }
    [
        { -1 -2 -3 -4 -5 } "cstiq" [ pack-native ] keep
        unpack-native
    ]
}

=== Expected:
{ -1 -2 -3 -4 -5 }
=== Got:
{ -1 -2 281474926379008 -4 -5 }
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~byte-array~ } [ ~array~ "cstiq" pack-be ] \ (unit-test) 7
        experiment
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-be ]
        \ (unit-test) 12 experiment
        { ~byte-array~ } [ ~array~ "cstiq" pack-le ] \ (unit-test)
        16 experiment
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
        \ (unit-test) 21 experiment
        { ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
        \ (unit-test) 26 experiment
        { ~array~ } [ ~array~ "cstiqd" ~quotation~ keep unpack-be ]
        \ (unit-test) 31 experiment
        { ~array~ }
        [ ~array~ "cstiq" ~quotation~ keep unpack-native ]
        \ (unit-test) 36 experiment =&gt;
        { ~byte-array~ } [ ~array~ "4ci" pack-le ] \ (unit-test) 38
        experiment
        { ~array~ } [ ~byte-array~ "4ci" unpack-le ] \ (unit-test)
        39 experiment
        { 9 } [ "iic" packed-length ] \ (unit-test) 41 experiment
        [ "iii" read-packed-le ] \ (must-infer) 42 experiment
        [ "iii" read-packed-be ] \ (must-infer) 43 experiment
        [ "iii" read-packed-native ] \ (must-infer) 44 experiment
        [ "iii" unpack-le ] \ (must-infer) 45 experiment
        [ "iii" unpack-be ] \ (must-infer) 46 experiment
        [ "iii" unpack-native ] \ (must-infer) 47 experiment
        [ "iii" pack ] \ (must-infer) 48 experiment
        [ "iii" unpack ] \ (must-infer) 49 experiment
        [ "iii" pack ] \ (must-infer) 51 experiment
        { "c" } [ "1c" expand-pack-format ] \ (unit-test) 53
        experiment
        { "cccc" } [ "4c" expand-pack-format ] \ (unit-test) 54
        experiment
        { "cccccccccccc" } [ "12c" expand-pack-format ] ~13 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

==== resource:extra/math/matrices/extras/extras-tests.factor

resource:extra/math/matrices/extras/extras-tests.factor: 28

Unit Test: { { t } [ 50 &lt;box-matrix&gt; dup anti-transpose = ] }

The word anti-transpose cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                  Expected       Got
[ matrix-cols-iota ]   ( ..a -- ..b ) ( x -- x )
[ unshaped-cols-iota ] ( ..a -- ..b ) ( x -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~array~ } [ ~array~ 20 m^n ] \ (unit-test) 18 experiment
        [ ~array~ -20 m^n ] [ negative-power-matrix? ]
        \ (must-fail-with) 20 experiment
        [ ~array~ -8 m^n ] [ negative-power-matrix? ]
        \ (must-fail-with) 21 experiment
        { ~array~ } [ ~array~ t alternating-sign ] \ (unit-test) 23
        experiment
        { ~array~ } [ ~array~ f alternating-sign ] \ (unit-test) 24
        experiment
        { t } [ 50 &lt;box-matrix&gt; dup transpose = ] \ (unit-test) 27
        experiment
        { t } [ 50 &lt;box-matrix&gt; dup anti-transpose = ] \ (unit-test)
        28 experiment =&gt;
        { f } [ 4 &lt;box-matrix&gt; zero-matrix? ] \ (unit-test) 29
        experiment
        { t } [ 2 4 15 &lt;random-integer-matrix&gt; mabs ~array~ 1&amp;&amp; ]
        \ (unit-test) 36 experiment
        { t } [ 4 4 -45 &lt;random-integer-matrix&gt; mabs ~array~ 1&amp;&amp; ]
        \ (unit-test) 43 experiment
        { t } [ 2 2 1 &lt;random-integer-matrix&gt; mabs ~array~ 1&amp;&amp; ]
        \ (unit-test) 50 experiment
        { t } [ 2 4 0.89 &lt;random-unit-matrix&gt; mabs ~array~ 1&amp;&amp; ]
        \ (unit-test) 57 experiment
        { t } [ 2 4 -45.89 &lt;random-unit-matrix&gt; mabs ~array~ 1&amp;&amp; ]
        \ (unit-test) 64 experiment
        { t } [ 4 4 0.89 &lt;random-unit-matrix&gt; mabs ~array~ 1&amp;&amp; ]
        \ (unit-test) 71 experiment
        { ~array~ } [ 3 4 &lt;hilbert-matrix&gt; ] \ (unit-test) 77
        experiment
        { ~array~ } [ 4 &lt;toeplitz-matrix&gt; ] \ (unit-test) 84
        experiment
        { ~array~ } [ 4 &lt;hankel-matrix&gt; ] \ (unit-test) 91
        experiment
        { ~array~ } [ ~array~ 3 &lt;vandermonde-matrix&gt; ] \ (unit-test)
        100 experiment
        { ~array~ } [ ~array~ ~array~ kronecker-product ]
        \ (unit-test) 113 experiment
        { ~array~ } [ ~array~ dup kronecker-product ] \ (unit-test)
        ~127 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [ 50 &lt;box-matrix&gt; dup anti-transpose =&gt; = ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

==== resource:extra/math/transforms/fft/fft-tests.factor

resource:extra/math/transforms/fft/fft-tests.factor: 8

Unit Test: {
    { t }
    [
        { 10 C{ -2 2 } -2 C{ -2 -2 } } { 1 2 3 4 } fft 1.0e-12
        v~
    ]
}

The word fft cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t } [ ~array~ ~array~ fft 1.0e-12 v~ ] \ (unit-test) 8
        experiment =&gt;
        { t } [ ~array~ ~array~ ifft 1.0e-12 v~ ] \ (unit-test) 13
        experiment
        { t } [ ~array~ ~array~ fft 1.0e-12 v~ ] \ (unit-test) 20
        experiment
        { t } [ ~array~ ~array~ ifft 1.0e-12 v~ ] \ (unit-test) 25
        experiment
        { t } [ ~array~ ~array~ ~array~ correlate 1.0e-12 v~ ]
        \ (unit-test) 30 experiment
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [ { 10 ~complex~ -2 ~complex~ } { 1 2 3 4 } fft =&gt; 1.0e-12 v~ ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:extra/math/transforms/fft/fft-tests.factor: 13

Unit Test: {
    { t }
    [
        { 2+1/2 C{ -1/2 -1/2 } -1/2 C{ -1/2 1/2 } } { 1 2 3 4 }
        ifft 1.0e-12 v~
    ]
}

The word ifft cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t } [ ~array~ ~array~ fft 1.0e-12 v~ ] \ (unit-test) 8
        experiment
        { t } [ ~array~ ~array~ ifft 1.0e-12 v~ ] \ (unit-test) 13
        experiment =&gt;
        { t } [ ~array~ ~array~ fft 1.0e-12 v~ ] \ (unit-test) 20
        experiment
        { t } [ ~array~ ~array~ ifft 1.0e-12 v~ ] \ (unit-test) 25
        experiment
        { t } [ ~array~ ~array~ ~array~ correlate 1.0e-12 v~ ]
        \ (unit-test) 30 experiment
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [
        { 2+1/2 ~complex~ -1/2 ~complex~ } { 1 2 3 4 } ifft =&gt;
        1.0e-12 v~
    ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:extra/math/transforms/fft/fft-tests.factor: 20

Unit Test: { { t } [ { 5 -1 -1 } { 1 2 2 } fft 1.0e-12 v~ ] }

The word fft cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t } [ ~array~ ~array~ fft 1.0e-12 v~ ] \ (unit-test) 8
        experiment
        { t } [ ~array~ ~array~ ifft 1.0e-12 v~ ] \ (unit-test) 13
        experiment
        { t } [ ~array~ ~array~ fft 1.0e-12 v~ ] \ (unit-test) 20
        experiment =&gt;
        { t } [ ~array~ ~array~ ifft 1.0e-12 v~ ] \ (unit-test) 25
        experiment
        { t } [ ~array~ ~array~ ~array~ correlate 1.0e-12 v~ ]
        \ (unit-test) 30 experiment
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [ { 5 -1 -1 } { 1 2 2 } fft =&gt; 1.0e-12 v~ ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:extra/math/transforms/fft/fft-tests.factor: 25

Unit Test: { { t } [ { 1+2/3 -1/3 -1/3 } { 1 2 2 } ifft 1.0e-12 v~ ] }

The word ifft cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { t } [ ~array~ ~array~ fft 1.0e-12 v~ ] \ (unit-test) 8
        experiment
        { t } [ ~array~ ~array~ ifft 1.0e-12 v~ ] \ (unit-test) 13
        experiment
        { t } [ ~array~ ~array~ fft 1.0e-12 v~ ] \ (unit-test) 20
        experiment
        { t } [ ~array~ ~array~ ifft 1.0e-12 v~ ] \ (unit-test) 25
        experiment =&gt;
        { t } [ ~array~ ~array~ ~array~ correlate 1.0e-12 v~ ]
        \ (unit-test) 30 experiment
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [ { 1+2/3 -1/3 -1/3 } { 1 2 2 } ifft =&gt; 1.0e-12 v~ ]
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:extra/math/transforms/fft/fft-tests.factor: 30

Unit Test: {
    { t }
    [
        {
            C{ 0.05 0.0 }
            C{ 0.05 0.0 }
            C{ 0.05 0.0 }
            C{ 0.05 0.0 }
        } { 0.1 0.1 0.1 0.1 } { 0.2 0.1 0.1 0.1 } correlate
        1.0e-12 v~
    ]
}

The word fft cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input                                                               Expected       Got
[ POSTPONE: _ load-local 0 get-local 1 drop-locals ]                ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ POSTPONE: _ 3 load-locals -2 get-local... ( ..a -- ..b ) ( -- x x )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(U) [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call get-datastack ] dip =&gt; swap [ set-datastack ] dip
    ]
(U) [ call =&gt; get-datastack ]
(U) [
        { ~complex~ ~complex~ ~complex~ ~complex~ }
        { 0.1 0.1 0.1 0.1 } { 0.2 0.1 0.1 0.1 } correlate
        =&gt; 1.0e-12 v~
    ]
(O) correlate
(O) not-compiled
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

==== resource:extra/sequences/extras/extras-tests.factor

resource:extra/sequences/extras/extras-tests.factor: 221

Unit Test: {
    { 1 "beef" }
    [ { "chicken" "beef" "moose" } [ length ] infimum-by* ]
}

=== Expected:
1
"beef"
=== Got:
"chicken"
1
7
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~vector~ } [ "hello" ~quotation~ find-all ] \ (unit-test)
        5 experiment
        { ~array~ } [ "abcd" all-subseqs ] \ (unit-test) 7
        experiment
        { ~array~ } [ ~quotation~ ~array~ make ] \ (unit-test) 10
        experiment
        { ~byte-array~ } [ 1 2 "asdf" ~byte-array~ subseq-as ]
        \ (unit-test) 12 experiment
        { "" } [ "abc" "def" longest-subseq ] \ (unit-test) 14
        experiment
        { "abcd" } [ "abcd" "abcde" longest-subseq ] \ (unit-test)
        15 experiment
        { "foo" } [ "foo" "foobar" longest-subseq ] \ (unit-test) 16
        experiment
        { "foo" } [ "foobar" "foo" longest-subseq ] \ (unit-test) 17
        experiment
        { "" "" } [ "" "" 63 pad-longest ] \ (unit-test) 19
        experiment
        { "abc" "def" } [ "abc" "def" 63 pad-longest ] \ (unit-test)
        20 experiment
        { "   " "abc" } [ "" "abc" 32 pad-longest ] \ (unit-test) 21
        experiment
        { "abc" "   " } [ "abc" "" 32 pad-longest ] \ (unit-test) 22
        experiment
        { "abc..." "foobar" } [ "abc" "foobar" 46 pad-longest ]
        \ (unit-test) 23 experiment
        { ~array~ } [ "ABC" 8 &lt;iota&gt; ~quotation~ with map ]
        \ (unit-test) 38 experiment
        { ~array~ } [ ~array~ ~array~ over ~quotation~ change-nths ]
        \ (unit-test) 42 experiment
        { ~vector~ }
        [ ~array~ ~quotation~ selector* ~quotation~ dip ]
        \ (unit-test) 46 experiment
        { ~array~ } [ ~array~ ~quotation~ filter-index ]
        \ (unit-test) 48 experiment
        { ~vector~ }
        [ ~array~ ~quotation~ ~vector~ filter-index-as ]
        \ (unit-test) 50 experiment
        { ~array~ } [ ~array~ even-indices ] \ (unit-test) 52
        experiment
        { ~array~ } [ ~array~ odd-indices ] \ (unit-test) 54
        ~772 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:extra/sequences/extras/extras-tests.factor: 222

Unit Test: {
    { 0 "chicken" }
    [ { "chicken" "beef" "moose" } [ length ] supremum-by* ]
}

=== Expected:
0
"chicken"
=== Got:
"chicken"
0
"chicken"
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~vector~ } [ "hello" ~quotation~ find-all ] \ (unit-test)
        5 experiment
        { ~array~ } [ "abcd" all-subseqs ] \ (unit-test) 7
        experiment
        { ~array~ } [ ~quotation~ ~array~ make ] \ (unit-test) 10
        experiment
        { ~byte-array~ } [ 1 2 "asdf" ~byte-array~ subseq-as ]
        \ (unit-test) 12 experiment
        { "" } [ "abc" "def" longest-subseq ] \ (unit-test) 14
        experiment
        { "abcd" } [ "abcd" "abcde" longest-subseq ] \ (unit-test)
        15 experiment
        { "foo" } [ "foo" "foobar" longest-subseq ] \ (unit-test) 16
        experiment
        { "foo" } [ "foobar" "foo" longest-subseq ] \ (unit-test) 17
        experiment
        { "" "" } [ "" "" 63 pad-longest ] \ (unit-test) 19
        experiment
        { "abc" "def" } [ "abc" "def" 63 pad-longest ] \ (unit-test)
        20 experiment
        { "   " "abc" } [ "" "abc" 32 pad-longest ] \ (unit-test) 21
        experiment
        { "abc" "   " } [ "abc" "" 32 pad-longest ] \ (unit-test) 22
        experiment
        { "abc..." "foobar" } [ "abc" "foobar" 46 pad-longest ]
        \ (unit-test) 23 experiment
        { ~array~ } [ "ABC" 8 &lt;iota&gt; ~quotation~ with map ]
        \ (unit-test) 38 experiment
        { ~array~ } [ ~array~ ~array~ over ~quotation~ change-nths ]
        \ (unit-test) 42 experiment
        { ~vector~ }
        [ ~array~ ~quotation~ selector* ~quotation~ dip ]
        \ (unit-test) 46 experiment
        { ~array~ } [ ~array~ ~quotation~ filter-index ]
        \ (unit-test) 48 experiment
        { ~vector~ }
        [ ~array~ ~quotation~ ~vector~ filter-index-as ]
        \ (unit-test) 50 experiment
        { ~array~ } [ ~array~ even-indices ] \ (unit-test) 52
        experiment
        { ~array~ } [ ~array~ odd-indices ] \ (unit-test) 54
        ~772 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

resource:extra/sequences/extras/extras-tests.factor: 223

Unit Test: {
    { 2 "moose" }
    [ { "chicken" "beef" "moose" } [ first ] supremum-by* ]
}

=== Expected:
2
"moose"
=== Got:
"chicken"
2
"moose"
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~vector~ } [ "hello" ~quotation~ find-all ] \ (unit-test)
        5 experiment
        { ~array~ } [ "abcd" all-subseqs ] \ (unit-test) 7
        experiment
        { ~array~ } [ ~quotation~ ~array~ make ] \ (unit-test) 10
        experiment
        { ~byte-array~ } [ 1 2 "asdf" ~byte-array~ subseq-as ]
        \ (unit-test) 12 experiment
        { "" } [ "abc" "def" longest-subseq ] \ (unit-test) 14
        experiment
        { "abcd" } [ "abcd" "abcde" longest-subseq ] \ (unit-test)
        15 experiment
        { "foo" } [ "foo" "foobar" longest-subseq ] \ (unit-test) 16
        experiment
        { "foo" } [ "foobar" "foo" longest-subseq ] \ (unit-test) 17
        experiment
        { "" "" } [ "" "" 63 pad-longest ] \ (unit-test) 19
        experiment
        { "abc" "def" } [ "abc" "def" 63 pad-longest ] \ (unit-test)
        20 experiment
        { "   " "abc" } [ "" "abc" 32 pad-longest ] \ (unit-test) 21
        experiment
        { "abc" "   " } [ "abc" "" 32 pad-longest ] \ (unit-test) 22
        experiment
        { "abc..." "foobar" } [ "abc" "foobar" 46 pad-longest ]
        \ (unit-test) 23 experiment
        { ~array~ } [ "ABC" 8 &lt;iota&gt; ~quotation~ with map ]
        \ (unit-test) 38 experiment
        { ~array~ } [ ~array~ ~array~ over ~quotation~ change-nths ]
        \ (unit-test) 42 experiment
        { ~vector~ }
        [ ~array~ ~quotation~ selector* ~quotation~ dip ]
        \ (unit-test) 46 experiment
        { ~array~ } [ ~array~ ~quotation~ filter-index ]
        \ (unit-test) 48 experiment
        { ~vector~ }
        [ ~array~ ~quotation~ ~vector~ filter-index-as ]
        \ (unit-test) 50 experiment
        { ~array~ } [ ~array~ even-indices ] \ (unit-test) 52
        experiment
        { ~array~ } [ ~array~ odd-indices ] \ (unit-test) 54
        ~772 more~
    ]
(U) [
        2 load-locals -1 get-local &lt;experiment&gt; load-local
        silent-tests? get 0 get-local
        [ load-local 0 get-local experiment. 1 drop-locals ] curry
        unless -2 get-local execute =&gt; 0 get-local -1 get-local [
            2 load-locals -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ if 2 drop-locals
        ] curry curry [ 2drop "Warning: test skipped!" print ] if
        3 drop-locals
    ]
    experiment
(O) (unit-test)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        current-continuation =&gt; error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

==== resource:extra/tensors/tensors-tests.factor

resource:extra/tensors/tensors-tests.factor: 744

Unit Test: {
    {
        t{
            { 0.0 1.0 2.0 3.0 1.0 }
            { 4.0 5.0 6.0 7.0 1.0 }
            { 8.0 9.0 10.0 11.0 1.0 }
        }
    }
    [ { 3 4 } naturals { 3 1 } ones 2array hstack ]
}

The word hstack-unsafe cannot be executed because it failed to compile

Stack effect declaration is wrong
inferred ( x -- x x )
declared ( tseq -- tensor )
(U) [ c-to-factor =&gt; ]
    c-to-factor
(U) [ [ (get-catchstack) push ] dip call =&gt; (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
        { ~float-array~ } [ ~array~ zeros vec&gt;&gt; ] \ (unit-test) 12
        experiment
        { ~array~ } [ ~array~ zeros shape&gt;&gt; ] \ (unit-test) 1...
 
[truncated message content]