lexer: Add char: \' support. Fix ch'\' support

core/lexer/lexer.factor

@@ -151,8 +151,14 @@ PREDICATE: unexpected-eof < unexpected got>> not ;
 
 : strict-single-quote? ( string -- ? )
     "'" split1
-    [ [ char: ' swap member? not ] [ drop t ] bi and ]
-    [ [ length 0 > ] [ "'" tail? not ] bi and ] bi* and ;
+    [ drop t ]
+    [
+        [ length 0 > ]
+        [
+            ! ch'\'
+            [ "\\'" tail? ] [ "'" tail? not ] bi or
+        ] bi and
+    ] bi* and ;
 
 : strict-lower-colon? ( string -- ? )
     [ char: \: = ] cut-tail

core/strings/parser/parser.factor

@@ -31,6 +31,7 @@ ERROR: bad-escape char ;
         { char: \] char: \] }
         { char: \} char: \} }
         { char: \) char: \) }
+        { char: \' char: \' }
     } ?at [ bad-escape ] unless ;
 
 INITIALIZED-SYMBOL: name>char-hook [