Make sure either STRING or STRINGLIT are defined

Co-authored-by: panglesd <[email protected]>
ocaml-community · Jan 26, 2022 · 1864d32 · 1864d32
1 parent 456de66
commit 1864d32
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/pretty.ml b/lib/pretty.ml
@@ -50,7 +50,7 @@ let rec format std (out:Format.formatter) (x:t) : unit =
         if std then
 #ifdef STRING
           let representation = `String s in
-#else
+#elif defined STRINGLIT
           let representation = `Stringlit s in
 #endif
           format std out representation
@@ -61,7 +61,7 @@ let rec format std (out:Format.formatter) (x:t) : unit =
         if std then
 #ifdef STRING
           let representation = `String s in
-#else
+#elif defined STRINGLIT
           let representation = `Stringlit s in
 #endif
           format std out (`List [ representation; x ])