diff --git a/core/compiler/tests/intrinsics.factor b/core/compiler/tests/intrinsics.factor index c1ac6b4017..7d473871fe 100755 --- a/core/compiler/tests/intrinsics.factor +++ b/core/compiler/tests/intrinsics.factor @@ -4,8 +4,8 @@ math.constants math.private sequences strings tools.test words continuations sequences.private hashtables.private byte-arrays strings.private system random layouts vectors.private sbufs.private strings.private slots.private alien -alien.accessors alien.c-types alien.syntax namespaces libc -sequences.private io.encodings.ascii ; +alien.accessors alien.c-types alien.syntax alien.strings +namespaces libc sequences.private io.encodings.ascii ; ! Make sure that intrinsic ops compile to correct code. [ ] [ 1 [ drop ] compile-call ] unit-test @@ -361,7 +361,7 @@ cell 8 = [ [ ] [ "b" get free ] unit-test ] when -[ ] [ "hello world" malloc-char-string "s" set ] unit-test +[ ] [ "hello world" ascii malloc-string "s" set ] unit-test "s" get [ [ "hello world" ] [ "s" get [ { byte-array } declare *void* ] compile-call ascii alien>string ] unit-test diff --git a/core/compiler/tests/templates-early.factor b/core/compiler/tests/templates-early.factor index 004d088343..5a08ed0b5b 100755 --- a/core/compiler/tests/templates-early.factor +++ b/core/compiler/tests/templates-early.factor @@ -2,7 +2,8 @@ IN: compiler.tests USING: compiler generator generator.registers generator.registers.private tools.test namespaces sequences -words kernel math effects definitions compiler.units accessors ; +words kernel math effects definitions compiler.units accessors +cpu.architecture ; : ( n -- vreg ) int-regs ; diff --git a/core/io/encodings/utf16/utf16-tests.factor b/core/io/encodings/utf16/utf16-tests.factor index 6985983917..0d171ee9aa 100755 --- a/core/io/encodings/utf16/utf16-tests.factor +++ b/core/io/encodings/utf16/utf16-tests.factor @@ -1,6 +1,6 @@ USING: kernel tools.test io.encodings.utf16 arrays sbufs io.streams.byte-array sequences io.encodings io unicode -io.encodings.string alien.c-types accessors classes ; +io.encodings.string alien.c-types alien.strings accessors classes ; IN: io.encodings.utf16.tests [ { CHAR: x } ] [ { 0 CHAR: x } utf16be decode >array ] unit-test diff --git a/extra/math/ranges/ranges.factor b/extra/math/ranges/ranges.factor index ca69e78726..cc7d0758e5 100755 --- a/extra/math/ranges/ranges.factor +++ b/extra/math/ranges/ranges.factor @@ -53,7 +53,7 @@ INSTANCE: range immutable-sequence dup range-decreasing? first-or-peek ; : clamp-to-range ( n range -- n ) - [ min>> max ] [ max>> min ] bi ; + [ range-min max ] [ range-max min ] bi ; : sequence-index-range ( seq -- range ) length [0,b) ; diff --git a/extra/openssl/openssl-tests.factor b/extra/openssl/openssl-tests.factor index a392589211..5825ca7270 100755 --- a/extra/openssl/openssl-tests.factor +++ b/extra/openssl/openssl-tests.factor @@ -1,6 +1,7 @@ -USING: alien alien.c-types assocs bit-arrays hashtables io io.files -io.sockets kernel mirrors openssl.libcrypto openssl.libssl -namespaces math math.parser openssl prettyprint sequences tools.test ; +USING: alien alien.c-types alien.strings assocs bit-arrays +hashtables io io.files io.encodings.ascii io.sockets kernel +mirrors openssl.libcrypto openssl.libssl namespaces math +math.parser openssl prettyprint sequences tools.test ; ! ========================================================= ! Some crypto functions (still to be turned into words)