From 8d20156b2984e73bcb7f4a313ad40711ecc82484 Mon Sep 17 00:00:00 2001
From: "Brian T. Rice" <briantrice@gmail.com>
Date: Tue, 15 Mar 2011 21:13:08 -0700
Subject: [PATCH] Lexer code cleanup using nextSegmentUntil:.

---
 src/syntax/lexer.slate | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/syntax/lexer.slate b/src/syntax/lexer.slate
index adc6298..f80c69e 100644
--- a/src/syntax/lexer.slate
+++ b/src/syntax/lexer.slate
@@ -270,12 +270,7 @@ l@(Lexer traits) readLiteralPastHash
          $\( -> [tokens BeginPattern].
          $\{ -> [tokens BeginLiteralArray].
          $\[ -> [tokens BeginLiteralBlock].
-         $\' -> [l newLiteralFor:
-                   ([| :result c |
-                     [(c := l nextCharacter) == $\']
-                       whileFalse:
-                         [result nextPut: (l characterFor: c)]]
-                      writingAs: '') intern].
+         $\' -> [l newLiteralFor: (l nextSegmentUntil: $\') intern].
          $#  -> [l nextCharacter = $\(
                    ifTrue: [tokens BeginLiteralParenthesis]
                    ifFalse: [l error: 'Expected ( after ##']]
-- 
2.11.4.GIT