diff --git a/library/bootstrap/boot-stage1.factor b/library/bootstrap/boot-stage1.factor index c1296bb2cf..0d63de9b1a 100644 --- a/library/bootstrap/boot-stage1.factor +++ b/library/bootstrap/boot-stage1.factor @@ -63,6 +63,7 @@ vectors words ; "/library/io/stream.factor" "/library/io/duplex-stream.factor" "/library/io/stdio.factor" + "/library/io/null-stream.factor" "/library/io/plain-stream.factor" "/library/io/lines.factor" "/library/io/string-streams.factor" @@ -181,6 +182,7 @@ vectors words ; "/library/ui/editors.factor" "/library/ui/splitters.factor" "/library/ui/incremental.factor" + "/library/ui/paragraphs.factor" "/library/ui/panes.factor" "/library/ui/books.factor" "/library/ui/outliner.factor" diff --git a/library/io/null-stream.factor b/library/io/null-stream.factor new file mode 100644 index 0000000000..01b796b00b --- /dev/null +++ b/library/io/null-stream.factor @@ -0,0 +1,19 @@ +IN: io +USING: kernel ; + +! Think '/dev/null'. +M: f stream-close drop ; +M: f set-timeout drop ; + +M: f stream-readln drop f ; +M: f stream-read1 drop f ; +M: f stream-read 2drop f ; + +M: f stream-write1 2drop ; +M: f stream-write 2drop ; +M: f stream-terpri drop ; +M: f stream-flush drop ; + +M: f stream-format 3drop ; +M: f stream-break drop ; +M: f with-nested-stream rot drop with-stream* ; diff --git a/library/io/stream.factor b/library/io/stream.factor index 093b566fd5..4225b8d272 100644 --- a/library/io/stream.factor +++ b/library/io/stream.factor @@ -33,20 +33,3 @@ GENERIC: with-nested-stream ( style stream quot -- ) : stream-copy ( in out -- ) [ 2dup (stream-copy) ] [ stream-close stream-close ] cleanup ; - -! Think '/dev/null'. -M: f stream-close drop ; -M: f set-timeout drop ; - -M: f stream-readln drop f ; -M: f stream-read1 drop f ; -M: f stream-read 2drop f ; - -M: f stream-write1 2drop ; -M: f stream-write 2drop ; -M: f stream-terpri drop ; -M: f stream-flush drop ; - -M: f stream-format 3drop ; -M: f stream-break drop ; -M: f with-nested-stream rot drop with-stream* ;