minor refactoring

OpenUniversity · Jun 25, 2024 · 7c7ee1d · 7c7ee1d
1 parent c3f5c12
commit 7c7ee1d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Spr24/HW/Homework3/test_parse.sml b/Spr24/HW/Homework3/test_parse.sml
@@ -9,13 +9,13 @@ use "hw3_q3.sml";
 exception TestFailure of string;
 
 local
-    fun sexp_to_string (ATOM(SYMBOL(s))) = s
-    | sexp_to_string (ATOM(NIL)) = "NIL"
-    | sexp_to_string (CONS(x, y)) = "(" ^ sexp_to_string x ^ "." ^ sexp_to_string y ^ ")";
+    fun sexp_to_string (ATOM(SYMBOL s)) = s
+    | sexp_to_string (ATOM NIL) = "NIL"
+    | sexp_to_string (CONS (x, y)) = "(" ^ sexp_to_string x ^ "." ^ sexp_to_string y ^ ")";
 in
     fun assert_equal (expected, actual, msg) =
         if expected = actual then ()
-        else raise TestFailure(msg ^ ": expected " ^ sexp_to_string expected ^ ", but got " ^ sexp_to_string actual);
+        else raise TestFailure (msg ^ ": expected " ^ sexp_to_string expected ^ ", but got " ^ sexp_to_string actual);
 end;
 
 let