factor: detect unclosed strings.

Detect strings that are not properly terminated.

diff --git a/factor/lib/reader/reader.factor b/factor/lib/reader/reader.factor
index 568eae0..ae228bd 100644 (file)
--- a/factor/lib/reader/reader.factor
+++ b/factor/lib/reader/reader.factor
@@ -9,7 +9,8 @@ CONSTANT: token-regex R/ (~@|[\[\]{}()'`~^@]|"(?:\\.|[^\\"])*"?|;.*|[^\s\[\]{}('
 DEFER: read-form
 
 : (read-string) ( str -- maltype )
-    dup last CHAR: " = [
+!    dup last CHAR: " = [
+    dup R/ ^"(?:\\.|[^\\"])*"$/ matches? [
         rest but-last R/ \\./ [
             {
                 { [ dup >string "\\\\" = ] [ drop "\\" ] }