Mercurial > urweb

comparison src/shake.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 6f4f8b9c5023
comparison
equal deleted inserted replaced
1019:68ba074e260f 1020:dfe34fad749d
135 end 135 end
136 end 136 end
137 in 137 in
138 case e of 138 case e of
139 ENamed n => check n 139 ENamed n => check n
140 | EServerCall (n, _, _, _, _) => check n 140 | EServerCall (n, _, _) => check n
141 | ETailCall (n, _, _, _, _) => check n
142 | _ => s 141 | _ => s
143 end 142 end
144 143
145 and shakeExp s = U.Exp.fold {kind = kind, con = con, exp = exp} s 144 and shakeExp s = U.Exp.fold {kind = kind, con = con, exp = exp} s
146 145