Menu
▾
▴
[Factor-builds] mason on windows-x86-32: 7f6c5d1 -- dirty
|
From: <fac...@gm...> - 2022-01-25 22:02:14
|
<div><h1>Build report for windows/x86.32</h1>
<table>
<tr><td>Build machine:</td><td>jasperbox</td></tr>
<tr><td>Disk usage:</td><td>460.98Gi used, 15.10Gi avail, 476.08Gi total, 3.17% free</td></tr>
<tr><td>Build directory:</td><td>C:\Users\Doug/builds32/2022-01-25-13-51</td></tr>
<tr><td>GIT ID:</td><td><a href="http://github.com/factor/factor/commit/7f6c5d1bae16a3c2c6884f498d85386471206e76">7f6c5d1bae16a3c2c6884f498d85386471206e76</a></td></tr>
</table><h2>Timings</h2> <table><tr><td>boot-time</td><td>00:01:47</td></tr><tr><td>load-time</td><td>00:00:20</td></tr><tr><td>test-time</td><td>00:58:59</td></tr><tr><td>help-lint-time</td><td>00:00:40</td></tr><tr><td>benchmark-time</td><td>00:27:20</td></tr><tr><td>html-help-time</td><td>00:04:41</td></tr></table><h1>Compiler errors</h1> <ul><li>resource:extra/elevate/windows/windows.factor</li><li>resource:extra/math/transforms/fft/fft.factor</li><li>resource:extra/tensors/tensors.factor</li></ul> Details: <pre>
==== resource:extra/elevate/windows/windows.factor
resource:extra/elevate/windows/windows.factor: 14
Asset: M\ windows elevated
The input quotations to “if” don't match their expected effects
Input Expected Got
[ POSTPONE: _ load-local <process> 0 get-local >>command 1... ( ..a -- ..b ) ( -- x )
[ POSTPONE: _ POSTPONE: _ 2 load-locals f "runas" -1 get-local... ( ..a -- ..b ) ( 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/pack/pack-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/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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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
{ ~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 <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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
{ ~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 <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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 =>
{ ~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 <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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
{ t } [ ~array~ ~array~ ~array~ correlate 1.0e-12 v~ ]
\ (unit-test) 30 experiment
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ { 10 ~complex~ -2 ~complex~ } { 1 2 3 4 } fft => 1.0e-12 v~ ]
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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
{ t } [ ~array~ ~array~ ~array~ correlate 1.0e-12 v~ ]
\ (unit-test) 30 experiment
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [
{ 2+1/2 ~complex~ -1/2 ~complex~ } { 1 2 3 4 } ifft =>
1.0e-12 v~
]
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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
{ t } [ ~array~ ~array~ ~array~ correlate 1.0e-12 v~ ]
\ (unit-test) 30 experiment
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ { 5 -1 -1 } { 1 2 2 } fft => 1.0e-12 v~ ]
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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 =>
{ t } [ ~array~ ~array~ ~array~ correlate 1.0e-12 v~ ]
\ (unit-test) 30 experiment
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ { 1+2/3 -1/3 -1/3 } { 1 2 2 } ifft => 1.0e-12 v~ ]
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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 <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [
{ ~complex~ ~complex~ ~complex~ ~complex~ }
{ 0.1 0.1 0.1 0.1 } { 0.2 0.1 0.1 0.1 } correlate
=> 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 => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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 <iota> ~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 <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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 <iota> ~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 <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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 <iota> ~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 <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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>> ] \ (unit-test) 12
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 16
experiment
{ ~float-array~ } [ ~array~ zeros vec>> ] \ (unit-test) 20
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 24
experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 29 experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 34 experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 39
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 43
experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 47
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 51
experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 56 experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 61 experiment
{ ~array~ ~float-array~ }
[ 0 3 1 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 67
experiment
{ ~array~ ~float-array~ }
[ 0 7 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 71
experiment
{ ~array~ ~float-array~ }
[ 1 9 3 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 75
experiment
{ ~array~ ~float-array~ }
[ 1 9 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 79
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
85 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 89
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
93 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 97
~832 more~
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/tensors/tensors-tests.factor: 750
Unit Test: {
{
t{
{ 0.0 1.0 2.0 3.0 1.0 0.0 0.0 }
{ 4.0 5.0 6.0 7.0 1.0 0.0 0.0 }
{ 8.0 9.0 10.0 11.0 1.0 0.0 0.0 }
}
}
[
{ 3 4 } naturals { 3 1 } ones { 3 2 } zeros 3array
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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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>> ] \ (unit-test) 12
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 16
experiment
{ ~float-array~ } [ ~array~ zeros vec>> ] \ (unit-test) 20
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 24
experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 29 experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 34 experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 39
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 43
experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 47
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 51
experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 56 experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 61 experiment
{ ~array~ ~float-array~ }
[ 0 3 1 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 67
experiment
{ ~array~ ~float-array~ }
[ 0 7 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 71
experiment
{ ~array~ ~float-array~ }
[ 1 9 3 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 75
experiment
{ ~array~ ~float-array~ }
[ 1 9 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 79
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
85 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 89
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
93 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 97
~832 more~
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/tensors/tensors-tests.factor: 755
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 }
{ 12.0 13.0 14.0 15.0 1.0 }
}
}
}
[ { 2 2 4 } naturals { 2 2 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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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>> ] \ (unit-test) 12
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 16
experiment
{ ~float-array~ } [ ~array~ zeros vec>> ] \ (unit-test) 20
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 24
experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 29 experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 34 experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 39
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 43
experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 47
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 51
experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 56 experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 61 experiment
{ ~array~ ~float-array~ }
[ 0 3 1 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 67
experiment
{ ~array~ ~float-array~ }
[ 0 7 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 71
experiment
{ ~array~ ~float-array~ }
[ 1 9 3 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 75
experiment
{ ~array~ ~float-array~ }
[ 1 9 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 79
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
85 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 89
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
93 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 97
~832 more~
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/tensors/tensors-tests.factor: 762
Unit Test: {
{
t{
{
{ 0.0 1.0 2.0 3.0 1.0 0.0 0.0 }
{ 4.0 5.0 6.0 7.0 1.0 0.0 0.0 }
}
{
{ 8.0 9.0 10.0 11.0 1.0 0.0 0.0 }
{ 12.0 13.0 14.0 15.0 1.0 0.0 0.0 }
}
}
}
[
{ 2 2 4 } naturals { 2 2 1 } ones { 2 2 2 } zeros 3array
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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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>> ] \ (unit-test) 12
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 16
experiment
{ ~float-array~ } [ ~array~ zeros vec>> ] \ (unit-test) 20
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 24
experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 29 experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 34 experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 39
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 43
experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 47
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 51
experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 56 experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 61 experiment
{ ~array~ ~float-array~ }
[ 0 3 1 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 67
experiment
{ ~array~ ~float-array~ }
[ 0 7 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 71
experiment
{ ~array~ ~float-array~ }
[ 1 9 3 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 75
experiment
{ ~array~ ~float-array~ }
[ 1 9 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 79
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
85 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 89
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
93 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 97
~832 more~
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/tensors/tensors-tests.factor: 787
Unit Test: {
{ t{ { 0.0 1.0 } { 2.0 3.0 } { 4.0 5.0 } { 0.0 1.0 } } }
[ { 3 2 } naturals { 1 2 } naturals 2array vstack ]
}
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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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>> ] \ (unit-test) 12
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 16
experiment
{ ~float-array~ } [ ~array~ zeros vec>> ] \ (unit-test) 20
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 24
experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 29 experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 34 experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 39
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 43
experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 47
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 51
experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 56 experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 61 experiment
{ ~array~ ~float-array~ }
[ 0 3 1 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 67
experiment
{ ~array~ ~float-array~ }
[ 0 7 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 71
experiment
{ ~array~ ~float-array~ }
[ 1 9 3 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 75
experiment
{ ~array~ ~float-array~ }
[ 1 9 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 79
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
85 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 89
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
93 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 97
~832 more~
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(O) vstack
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/tensors/tensors-tests.factor: 792
Unit Test: {
{
t{
{ 0.0 1.0 }
{ 2.0 3.0 }
{ 4.0 5.0 }
{ 0.0 1.0 }
{ 0.0 1.0 }
{ 2.0 3.0 }
}
}
[
{ 3 2 } naturals { 1 2 } naturals
{ 2 2 } naturals 3array vstack
]
}
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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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>> ] \ (unit-test) 12
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 16
experiment
{ ~float-array~ } [ ~array~ zeros vec>> ] \ (unit-test) 20
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 24
experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 29 experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 34 experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 39
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 43
experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 47
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 51
experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 56 experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 61 experiment
{ ~array~ ~float-array~ }
[ 0 3 1 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 67
experiment
{ ~array~ ~float-array~ }
[ 0 7 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 71
experiment
{ ~array~ ~float-array~ }
[ 1 9 3 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 75
experiment
{ ~array~ ~float-array~ }
[ 1 9 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 79
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
85 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 89
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
93 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 97
~832 more~
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(O) vstack
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/tensors/tensors-tests.factor: 797
Unit Test: {
{
t{
{ { 0.0 1.0 } { 2.0 3.0 } { 4.0 5.0 } { 0.0 1.0 } }
{
{ 6.0 7.0 }
{ 8.0 9.0 }
{ 10.0 11.0 }
{ 2.0 3.0 }
}
}
}
[ { 2 3 2 } naturals { 2 1 2 } naturals 2array vstack ]
}
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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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>> ] \ (unit-test) 12
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 16
experiment
{ ~float-array~ } [ ~array~ zeros vec>> ] \ (unit-test) 20
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 24
experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 29 experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 34 experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 39
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 43
experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 47
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 51
experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 56 experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 61 experiment
{ ~array~ ~float-array~ }
[ 0 3 1 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 67
experiment
{ ~array~ ~float-array~ }
[ 0 7 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 71
experiment
{ ~array~ ~float-array~ }
[ 1 9 3 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 75
experiment
{ ~array~ ~float-array~ }
[ 1 9 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 79
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
85 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 89
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
93 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 97
~832 more~
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 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 => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(O) vstack
(O) not-compiled
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/tensors/tensors-tests.factor: 804
Unit Test: {
{
t{
{
{ 0.0 1.0 }
{ 2.0 3.0 }
{ 4.0 5.0 }
{ 0.0 1.0 }
{ 0.0 1.0 }
{ 2.0 3.0 }
}
{
{ 6.0 7.0 }
{ 8.0 9.0 }
{ 10.0 11.0 }
{ 2.0 3.0 }
{ 4.0 5.0 }
{ 6.0 7.0 }
}
}
}
[
{ 2 3 2 } naturals { 2 1 2 } naturals
{ 2 2 2 } naturals 3array vstack
]
}
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 => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (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>> ] \ (unit-test) 12
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 16
experiment
{ ~float-array~ } [ ~array~ zeros vec>> ] \ (unit-test) 20
experiment
{ ~array~ } [ ~array~ zeros shape>> ] \ (unit-test) 24
experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 29 experiment
[ ~array~ zeros ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 34 experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 39
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 43
experiment
{ ~float-array~ } [ ~array~ ones vec>> ] \ (unit-test) 47
experiment
{ ~array~ } [ ~array~ ones shape>> ] \ (unit-test) 51
experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 56 experiment
[ ~array~ ones ]
[ ~array~ \ non-positive-shape-error boa = ]
\ (must-fail-with) 61 experiment
{ ~array~ ~float-array~ }
[ 0 3 1 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 67
experiment
{ ~array~ ~float-array~ }
[ 0 7 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 71
experiment
{ ~array~ ~float-array~ }
[ 1 9 3 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 75
experiment
{ ~array~ ~float-array~ }
[ 1 9 2 arange ~quotation~ ~quotation~ bi ] \ (unit-test) 79
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
85 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (unit-test) 89
experiment
{ ~float-array~ } [ ~array~ naturals vec>> ] \ (unit-test)
93 experiment
{ ~array~ } [ ~array~ naturals shape>> ] \ (un...
[truncated message content] |
