From 14139f8fad0b7e50e4d4dcee427710a594192bb4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 27 Aug 2017 14:47:08 -0500
Subject: [PATCH] modern.out: Remove symbol.

---
 extra/modern/out/out.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor
index d4d4016804..1a2c97b5fa 100644
--- a/extra/modern/out/out.factor
+++ b/extra/modern/out/out.factor
@@ -6,8 +6,6 @@ multiline namespaces prettyprint sequences sequences.extras
 splitting strings ;
 IN: modern.out
 
-SYMBOL: last-slice
-
 : trim-before-newline ( seq -- seq' )
     dup [ char: \s = not ] find
     { char: \r char: \n } member?
@@ -18,9 +16,9 @@ SYMBOL: last-slice
     trim-before-newline io:write ;
 
 GENERIC#: write-literal* 1 ( obj last -- last' )
-! M: string write-literal* drop [ write ] keep ; ! for refactoring
 M: slice write-literal* [ write-whitespace ] [ drop write ] [ drop ] 2tri ;
 M: array write-literal* swap [ swap write-literal* ] each ;
+! M: string write-literal* drop [ write ] keep ; ! for refactoring
 
 ! Start with no slice as ``last``
 : write-literal ( obj -- ) f write-literal* drop ;