From ddcc147e240e1848245a78eb647b06f6e4170a47 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 15 Feb 2020 09:36:06 -0800
Subject: [PATCH] io.streams.ansi: use call-next-method.

---
 extra/io/streams/ansi/ansi.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/io/streams/ansi/ansi.factor b/extra/io/streams/ansi/ansi.factor
index 942eaa9279..19440313ff 100644
--- a/extra/io/streams/ansi/ansi.factor
+++ b/extra/io/streams/ansi/ansi.factor
@@ -64,7 +64,7 @@ M: ansi stream-format
         [ background of [ color>background ] [ "" ] if* ]
         [ font-style of [ font-styles ] [ "" ] if* ]
         tri 3append [ "\e[0m" surround ] unless-empty
-    ] dip stream>> stream-write ;
+    ] dip call-next-method ;
 
 M: ansi make-span-stream
     swap <style-stream> <ignore-close-stream> ;