# HG changeset patch
# User haftmann
# Date 1280399325 -7200
# Node ID 5beae0d6b7bc150236949f03ef102119780c8063
# Parent  7775fdc52b6dde1e15b1f1245096c498d33f7f46
rebinding ref is illegal

diff -r 7775fdc52b6d -r 5beae0d6b7bc src/Tools/Code/code_ml.ML
--- a/src/Tools/Code/code_ml.ML	Thu Jul 29 12:28:45 2010 +0200
+++ b/src/Tools/Code/code_ml.ML	Thu Jul 29 12:28:45 2010 +0200
@@ -987,7 +987,8 @@
       )))
   #> fold (Code_Target.add_reserved target_SML) ML_Syntax.reserved_names
   #> fold (Code_Target.add_reserved target_SML)
-      ["o" (*dictionary projections use it already*), "Fail", "div", "mod" (*standard infixes*), "IntInf"]
+      ["ref" (*rebinding is illegal*), "o" (*dictionary projections use it already*),
+        "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",