[MLton-commit] r6949

Vesa Karvonen vesak at mlton.org
Fri Oct 17 16:45:24 PDT 2008


Alphabetized.

----------------------------------------------------------------------

U   mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/example/server.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/example/server.sml
===================================================================
--- mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/example/server.sml	2008-10-17 22:57:20 UTC (rev 6948)
+++ mltonlib/trunk/org/mlton/vesak/rpc-lib/unstable/example/server.sml	2008-10-17 23:45:23 UTC (rev 6949)
@@ -8,8 +8,8 @@
    val assoc : (String.t * Int.t) List.t Ref.t = ref []
 in
    fun bind (k, v) = assoc := (k, v) :: List.filter (notEq k o #1) (!assoc)
+   fun bindings () = !assoc
    fun find k = Option.map #2 (List.find (eq k o #1) (!assoc))
-   fun bindings () = !assoc
 end
 
 val () = let




More information about the MLton-commit mailing list