From 77dd5f6677561dba8bdb08f8604c2715db5762bb Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 21 Sep 2009 17:59:37 -0500
Subject: [PATCH] remove <" and friends

---
 basis/multiline/multiline-docs.factor |  7 -------
 basis/multiline/multiline.factor      | 12 ------------
 2 files changed, 19 deletions(-)

diff --git a/basis/multiline/multiline-docs.factor b/basis/multiline/multiline-docs.factor
index 3616c0976c..61dc464665 100644
--- a/basis/multiline/multiline-docs.factor
+++ b/basis/multiline/multiline-docs.factor
@@ -5,10 +5,6 @@ HELP: STRING:
 { $syntax "STRING: name\nfoo\n;" }
 { $description "Forms a multiline string literal, or 'here document' stored in the word called name. A semicolon is used to signify the end, and that semicolon must be on a line by itself, not preceeded or followed by any whitespace. The string will have newlines in between lines but not at the end, unless there is a blank line before the semicolon." } ;
 
-HELP: <"
-{ $syntax "<\" text \">" }
-{ $description "This forms a multiline string literal ending in \">. Unlike the " { $link POSTPONE: STRING: } " form, you can end it in the middle of a line. This construct is non-nesting. In the example above, the string would be parsed as \"text\"." } ;
-
 HELP: /*
 { $syntax "/* comment */" }
 { $description "Provides C-like comments that can span multiple lines. One caveat is that " { $snippet "/*" } " and " { $snippet "*/" } " are still tokens and must not abut the comment text itself." }
@@ -47,8 +43,6 @@ HELP: DELIMITED:
     }
 } ;
 
-{ POSTPONE: <" POSTPONE: STRING: } related-words
-
 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." }
@@ -57,7 +51,6 @@ HELP: parse-multiline-string
 ARTICLE: "multiline" "Multiline"
 "Multiline strings:"
 { $subsection POSTPONE: STRING: }
-{ $subsection POSTPONE: <" }
 { $subsection POSTPONE: HEREDOC: }
 { $subsection POSTPONE: DELIMITED: }
 "Multiline comments:"
diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 4eaafe1f18..e28537066b 100644
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -75,18 +75,6 @@ PRIVATE>
 : parse-multiline-string ( end-text -- str )
     1 (parse-multiline-string) ;
 
-SYNTAX: <"
-    "\">" parse-multiline-string parsed ;
-
-SYNTAX: <'
-    "'>" parse-multiline-string parsed ;
-
-SYNTAX: {'
-    "'}" parse-multiline-string parsed ;
-
-SYNTAX: {"
-    "\"}" parse-multiline-string parsed ;
-
 SYNTAX: /* "*/" parse-multiline-string drop ;
 
 SYNTAX: HEREDOC: