Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
made SML/NJ happy;
authorwenzelm
Sun, 10 Jul 2011 16:13:37 +0200
changeset 43727 a0c3de0573d4
parent 43726 8e2be96f2d94
child 43728 152ce7114396
made SML/NJ happy;
src/Pure/Concurrent/synchronized.ML file | annotate | diff | comparison | revisions
src/Pure/Concurrent/synchronized_sequential.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Concurrent/synchronized.ML	Sun Jul 10 16:09:08 2011 +0200
+++ b/src/Pure/Concurrent/synchronized.ML	Sun Jul 10 16:13:37 2011 +0200
@@ -71,11 +71,11 @@
 
 fun counter () =
   let
-    val counter = var "counter" 0;
+    val counter = var "counter" (0: int);
     fun next () =
       change_result counter
         (fn i =>
-          let val j = i + 1
+          let val j = i + (1: int)
           in (j, j) end);
   in next end;
 
--- a/src/Pure/Concurrent/synchronized_sequential.ML	Sun Jul 10 16:09:08 2011 +0200
+++ b/src/Pure/Concurrent/synchronized_sequential.ML	Sun Jul 10 16:13:37 2011 +0200
@@ -27,11 +27,11 @@
 
 fun counter () =
   let
-    val counter = var "counter" 0;
+    val counter = var "counter" (0: int);
     fun next () =
       change_result counter
         (fn i =>
-          let val j = i + 1
+          let val j = i + (1: int)
           in (j, j) end);
   in next end;
isabelle