Mercurial > urweb

comparison src/core_untangle.sml @ 1020:dfe34fad749d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RPC uses VM support for call/cc
author Adam Chlipala <adamc@hcoop.net>
date Sun, 25 Oct 2009 14:07:10 -0400
parents 2a50da66ffd8
children e15234fbb163
comparison
equal deleted inserted replaced
1019:68ba074e260f 1020:dfe34fad749d
46 s 46 s
47 in 47 in
48 case e of 48 case e of
49 ENamed n => try n 49 ENamed n => try n
50 | EClosure (n, _) => try n 50 | EClosure (n, _) => try n
51 | EServerCall (n, _, _, _, _) => try n 51 | EServerCall (n, _, _) => try n
52 | ETailCall (n, _, _, _, _) => try n
53 | _ => s 52 | _ => s
54 end 53 end
55 54
56 fun untangle file = 55 fun untangle file =
57 let 56 let