Mercurial > urweb

comparison src/shake.sml @ 908:ed06e25c70ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Convert to requiring explicit 'rpc' marker
author Adam Chlipala <adamc@hcoop.net>
date Sat, 22 Aug 2009 12:55:18 -0400
parents 61a1f5c5ae2c
children 2a50da66ffd8
comparison
equal deleted inserted replaced
907:5fe49effbc83 908:ed06e25c70ef
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 | _ => s 141 | _ => s
142 end 142 end
143 143
144 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
145 145