From b98ace932b16c38d8613ee0272bdc3096c83cf43 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 12 Aug 2018 21:12:43 -0500 Subject: [PATCH 1/2] modern: Fix using lists. --- extra/modern/modern.factor | 4 ++-- extra/modern/out/out.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor index 7a0a0a659d..d6979c3960 100644 --- a/extra/modern/modern.factor +++ b/extra/modern/modern.factor @@ -3,8 +3,8 @@ USING: arrays assocs combinators combinators.short-circuit continuations io.encodings.utf8 io.files kernel make math math.order modern.paths modern.slices sequences sequences.extras -sequences.generalizations sets shuffle splitting strings unicode -vocabs.loader ; +sequences.generalizations sets shuffle splitting strings +syntax.modern unicode vocabs.loader ; IN: modern ERROR: string-expected-got-eof n string ; diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor index 1951b006cb..541c6a1bca 100644 --- a/extra/modern/out/out.factor +++ b/extra/modern/out/out.factor @@ -4,7 +4,7 @@ USING: accessors arrays assocs combinators.short-circuit constructors continuations io io.encodings.utf8 io.files io.streams.string kernel modern modern.paths modern.slices prettyprint sequences sequences.extras splitting strings -vocabs.loader ; +syntax.modern vocabs.loader ; IN: modern.out : token? ( obj -- ? ) From de903b4ee29e641e2098d7ff5f3eacd848c9c0e2 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 12 Aug 2018 21:12:58 -0500 Subject: [PATCH 2/2] io.files.temp: When using temp-file, it's possible that it fails since the temporary-directory does not exist yet. Always check if the directory exists and create it if not. --- basis/io/files/temp/temp.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/io/files/temp/temp.factor b/basis/io/files/temp/temp.factor index b1c18725c1..477c1f078d 100644 --- a/basis/io/files/temp/temp.factor +++ b/basis/io/files/temp/temp.factor @@ -12,7 +12,8 @@ SYMBOL: current-temp-directory current-temp-directory get ; : temp-file ( name -- path ) - temp-directory prepend-path ; + temp-directory + [ make-directories ] [ prepend-path ] bi ; : with-temp-directory ( quot -- ) [ temp-directory ] dip with-directory ; inline