diff --git a/core/io/streams/c/c-tests.factor b/core/io/streams/c/c-tests.factor index 5ace929ceb..16b78c2192 100755 --- a/core/io/streams/c/c-tests.factor +++ b/core/io/streams/c/c-tests.factor @@ -2,9 +2,9 @@ USING: tools.test io.files io io.streams.c ; IN: temporary [ "hello world" ] [ - "test.txt" resource-path [ + "test.txt" temp-file [ "hello world" write ] with-file-writer - "test.txt" resource-path "rb" fopen contents + "test.txt" temp-file "rb" fopen contents ] unit-test diff --git a/extra/benchmark/mandel/mandel.factor b/extra/benchmark/mandel/mandel.factor index 230fb2f889..0da4785785 100755 --- a/extra/benchmark/mandel/mandel.factor +++ b/extra/benchmark/mandel/mandel.factor @@ -65,7 +65,7 @@ SYMBOL: cols ] with-scope ; : mandel-main ( -- ) - "mandel.ppm" resource-path + "mandel.ppm" temp-file [ mandel write ] with-file-writer ; MAIN: mandel-main diff --git a/extra/benchmark/raytracer/raytracer.factor b/extra/benchmark/raytracer/raytracer.factor index 8f2badc95f..ddfd0ed6dd 100644 --- a/extra/benchmark/raytracer/raytracer.factor +++ b/extra/benchmark/raytracer/raytracer.factor @@ -170,7 +170,7 @@ DEFER: create ( level c r -- scene ) ] "" make ; : raytracer-main - "raytracer.pnm" resource-path + "raytracer.pnm" temp-file [ run write ] with-file-writer ; MAIN: raytracer-main diff --git a/extra/io/unix/unix-tests.factor b/extra/io/unix/unix-tests.factor index 515077f22b..6eb0b78955 100755 --- a/extra/io/unix/unix-tests.factor +++ b/extra/io/unix/unix-tests.factor @@ -38,8 +38,8 @@ yield "unix-domain-datagram-test" resource-path delete-file ] ignore-errors -: server-addr "unix-domain-datagram-test" resource-path ; -: client-addr "unix-domain-datagram-test-2" resource-path ; +: server-addr "unix-domain-datagram-test" temp-file ; +: client-addr "unix-domain-datagram-test-2" temp-file ; [ [ @@ -112,7 +112,7 @@ client-addr "unix-domain-datagram-test-3" resource-path delete-file ] ignore-errors -"unix-domain-datagram-test-2" resource-path delete-file +"unix-domain-datagram-test-2" temp-file delete-file [ ] [ client-addr "d" set ] unit-test