From da5564bd3f80521b90a91fd7e55d345cb1f4038c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 21 Jul 2015 12:02:15 -0700
Subject: [PATCH] multiline: remove unused DELIMITED: word.

---
 basis/multiline/multiline-docs.factor  | 14 --------------
 basis/multiline/multiline-tests.factor |  9 ---------
 basis/multiline/multiline.factor       |  8 --------
 3 files changed, 31 deletions(-)

diff --git a/basis/multiline/multiline-docs.factor b/basis/multiline/multiline-docs.factor
index e34b1679de..663494c501 100644
--- a/basis/multiline/multiline-docs.factor
+++ b/basis/multiline/multiline-docs.factor
@@ -32,19 +32,6 @@ HELP: HEREDOC:
     }
 } ;
 
-HELP: DELIMITED:
-{ $syntax "DELIMITED: marker\n...text...\nmarker" }
-{ $values { "marker" "a word (token)" } { "text" "arbitrary text" } { "value" string } }
-{ $description "Returns a string delimited by an arbitrary user-defined token. This delimiter must be exactly the text beginning at the first non-blank character after " { $link POSTPONE: DELIMITED: } " until the end of the line containing " { $link POSTPONE: DELIMITED: } ". Text is captured until the exact delimiter string is found, regardless of where." }
-{ $warning "Whitespace is significant on the " { $link POSTPONE: DELIMITED: } " line." }
-{ $examples
-    { $example "USING: multiline prettyprint ;"
-               "DELIMITED: factor blows my mind"
-"whoafactor blows my mind ."
-                "\"whoa\""
-    }
-} ;
-
 HELP: parse-multiline-string
 { $values { "end-text" "a string delineating the end" } { "str" "the parsed string" } }
 { $description "Parses the input stream until the " { $snippet "end-text" } " is reached and returns the parsed text as a string." }
@@ -55,7 +42,6 @@ ARTICLE: "multiline" "Multiline"
 { $subsections
     POSTPONE: STRING:
     POSTPONE: HEREDOC:
-    POSTPONE: DELIMITED:
 }
 "Multiline comments:"
 { $subsections POSTPONE: /* }
diff --git a/basis/multiline/multiline-tests.factor b/basis/multiline/multiline-tests.factor
index f039901136..17ffb3d683 100644
--- a/basis/multiline/multiline-tests.factor
+++ b/basis/multiline/multiline-tests.factor
@@ -71,15 +71,6 @@ lol
 xyz
 ] unit-test
 
-
-{ "lol" }
-[ DELIMITED: aol
-lolaol ] unit-test
-
-{ "whoa" }
-[ DELIMITED: factor blows my mind
-whoafactor blows my mind ] unit-test
-
 <<
 SYNTAX: MULTILINE-LITERAL: parse-here suffix! ;
 >>
diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 069c594b0d..1c2c1d462d 100644
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -91,11 +91,3 @@ SYNTAX: HEREDOC:
         [ next-line ]
         [ parse-til-line-begins ]
     } cleave suffix! ;
-
-SYNTAX: DELIMITED:
-    lexer get {
-        [ skip-blank ]
-        [ rest-of-line ]
-        [ next-line ]
-        [ 0 (parse-multiline-string) ]
-    } cleave suffix! ;
-- 
2.34.1