From 9c31dc1164796afaad34a3bb966ace3dcf9b7608 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 4 Apr 2008 07:39:00 -0500
Subject: [PATCH] Fix failing unit test
---
core/io/files/files-tests.factor | 6 +++---
core/io/streams/nested/nested.factor | 6 +++++-
2 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/core/io/files/files-tests.factor b/core/io/files/files-tests.factor
index b4a7d44433..5efbb9496d 100755
--- a/core/io/files/files-tests.factor
+++ b/core/io/files/files-tests.factor
@@ -1,7 +1,7 @@
IN: io.files.tests
-USING: tools.test io.files io threads kernel continuations
-io.encodings.ascii io.files.unique sequences strings accessors
-io.encodings.utf8 ;
+USING: tools.test io.files io.files.private io threads kernel
+continuations io.encodings.ascii io.files.unique sequences
+strings accessors io.encodings.utf8 ;
[ ] [ "blahblah" temp-file dup exists? [ delete-directory ] [ drop ] if ] unit-test
[ ] [ "blahblah" temp-file make-directory ] unit-test
diff --git a/core/io/streams/nested/nested.factor b/core/io/streams/nested/nested.factor
index 6a8a09fbdb..2a522d8e36 100755
--- a/core/io/streams/nested/nested.factor
+++ b/core/io/streams/nested/nested.factor
@@ -1,7 +1,7 @@
! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays generic assocs kernel namespaces strings
-quotations io continuations accessors ;
+quotations io continuations accessors sequences ;
IN: io.streams.nested
TUPLE: filter-writer stream ;
@@ -66,3 +66,7 @@ M: style-stream make-block-stream
M: style-stream make-cell-stream
[ do-nested-style make-cell-stream ] [ style>> ] bi
<style-stream> ;
+
+M: style-stream stream-write-table
+ [ [ [ stream>> ] map ] map ] [ ] [ stream>> ] tri*
+ stream-write-table ;