Fixes an error in string parsing

Leo Pourcelot · Leo Pourcelot · commit 1bd6c52ae2f5 · 2020-04-25T15:42:03.000+02:00
diff --git a/src/reader.rs b/src/reader.rs
@@ -203,6 +203,7 @@ pub fn try_read_string(input: &str) -> IResult<&str, Value> {
     named!(quotation<&str, &str>, preceded!(consume_clojure_whitespaces, tag!("\"")));
 
     let (rest_input, _) = quotation(input)?;
+
     named!(
         string_parser<&str, String>,
         map!(
@@ -211,7 +212,7 @@ pub fn try_read_string(input: &str) -> IResult<&str, Value> {
         )
     );
 
-    to_value_parser(string_parser)(input)
+    to_value_parser(string_parser)(rest_input)
 }
 
 // @TODO Perhaps generalize this, or even generalize it as a reader macro

Original file line number	Diff line number	Diff line change
`@@ -203,6 +203,7 @@ pub fn try_read_string(input: &str) -> IResult<&str, Value> {`
`203`	`203`	`named!(quotation<&str, &str>, preceded!(consume_clojure_whitespaces, tag!("\"")));`
`204`	`204`
`205`	`205`	`let (rest_input, _) = quotation(input)?;`
	`206`	`+`
`206`	`207`	`named!(`
`207`	`208`	`string_parser<&str, String>,`
`208`	`209`	`map!(`
`@@ -211,7 +212,7 @@ pub fn try_read_string(input: &str) -> IResult<&str, Value> {`
`211`	`212`	`)`
`212`	`213`	`);`
`213`	`214`
`214`		`- to_value_parser(string_parser)(input)`
	`215`	`+ to_value_parser(string_parser)(rest_input)`
`215`	`216`	`}`
`216`	`217`
`217`	`218`	`// @TODO Perhaps generalize this, or even generalize it as a reader macro`