--- 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",