# HG changeset patch
# User haftmann
# Date 1653142044 0
# Node ID 160c9c18a707d4403eb2267010d5f8912c654c6b
# Parent  91c16c5ad3e95efe98c0b29043ee74e4b8dc19ca
»nil« seems to be a reserved constructor word in PolyML

diff -r 91c16c5ad3e9 -r 160c9c18a707 src/Tools/Code/code_ml.ML
--- a/src/Tools/Code/code_ml.ML	Tue May 17 14:10:14 2022 +0100
+++ b/src/Tools/Code/code_ml.ML	Sat May 21 14:07:24 2022 +0000
@@ -891,9 +891,13 @@
   #> Code_Target.set_printings (Type_Constructor ("fun",
     [(target_SML, SOME (2, fun_syntax)), (target_OCaml, SOME (2, fun_syntax))]))
   #> fold (Code_Target.add_reserved target_SML) ML_Syntax.reserved_names
-  #> fold (Code_Target.add_reserved target_SML)
-      ["ref" (*rebinding is illegal*), "o" (*dictionary projections use it already*),
-        "Fail", "div", "mod" (*standard infixes*), "IntInf"]
+  #> fold (Code_Target.add_reserved target_SML) [
+      "ref", (*rebinding is illegal*)
+      "o", (*dictionary projections use it already*)
+      "nil", (*predefined constructor*)
+      "Fail",
+      "div", "mod", (*standard infixes*)
+      "IntInf"]
   #> fold (Code_Target.add_reserved target_OCaml) [
       "and", "as", "assert", "begin", "class",
       "constraint", "do", "done", "downto", "else", "end", "exception",