Fix parsing

src/primitives.rs

@@ -49,7 +49,6 @@ pub fn identifier(input: &str) -> ParseResult<&str, String, ()> {
 }
 
 pub fn whitespace(input: &str) -> ParseResult<&str, char, ()> {
-    println!("whitespace: `{input}`");
     match input.chars().next() {
         Some(ch) if ch.is_whitespace() => Ok((ch, &input[1..])),
         _ => Err(((), input)),

src/sequence.rs

@@ -12,13 +12,9 @@ pub fn surrounded_by<I, O1, O2, E>(
     surrounding: impl Parser<I, O2, E>,
 ) -> impl Parser<I, O1, E> {
     move |input| {
-        println!("surrounded_by");
         let (_result1, rest1) = surrounding.parse(input)?;
-        println!("A");
         let (result2, rest2) = main.parse(rest1)?;
-        println!("B");
         let (_result3, rest3) = surrounding.parse(rest2)?;
-        println!("C");
         Ok((result2, rest3))
     }
 }

src/test/sexp.rs

@@ -48,7 +48,6 @@ fn test_parse_atom() {
 }
 
 fn parse_expr(input: &str) -> ParseResult<&str, Expr, ()> {
-    println!("parse_expr: {input}");
     choice((parse_list, parse_atom.map(Expr::Atom))).parse(input)
 }
 
@@ -61,15 +60,17 @@ fn parse_list(input: &str) -> ParseResult<&str, Expr, ()> {
         )
         .then_ignore(literal_char(')'))
         .map(Expr::List)
-        .surrounded_by(repeated(whitespace))
         .parse(input)
 }
 
 #[test]
 fn test_parse_list() {
-    let output = parse_list.parse("\n(1 2 (1 2) 9999 3)").unwrap();
+    let output = parse_list.parse("(1 2 (1 2) 9999 3)").unwrap();
     assert_eq!(output.1, "");
+}
 
+fn parse_sexp(input: &str) -> ParseResult<&str, Expr, ()> {
+    parse_list.surrounded_by(repeated(whitespace)).parse(input)
 }
 
 #[test]
@@ -91,6 +92,6 @@ fn test_parse_sexp() {
 )"#
     .trim();
 
-    let output = parse_expr(complex_input).unwrap();
+    let output = parse_sexp(complex_input).unwrap();
     assert_eq!(output.1, "");
 }