Mercurial > urweb

comparison src/shake.sml @ 1848:e15234fbb163

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.tryRpc
author Adam Chlipala <adam@chlipala.net>
date Tue, 16 Apr 2013 10:55:48 -0400
parents b4480a56cab7
children 4d64af730e35
comparison
equal deleted inserted replaced
1847:8958b580d026 1848:e15234fbb163
1 (* Copyright (c) 2008-2010, Adam Chlipala 1 (* Copyright (c) 2008-2010, 2013, Adam Chlipala
2 * All rights reserved. 2 * All rights reserved.
3 * 3 *
4 * Redistribution and use in source and binary forms, with or without 4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are met: 5 * modification, are permitted provided that the following conditions are met:
6 * 6 *
184 end 184 end
185 end 185 end
186 in 186 in
187 case e of 187 case e of
188 ENamed n => check n 188 ENamed n => check n
189 | EServerCall (n, _, _) => check n 189 | EServerCall (n, _, _, _) => check n
190 | _ => s 190 | _ => s
191 end 191 end
192 192
193 and shakeExp s = U.Exp.fold {kind = kind, con = con, exp = exp} s 193 and shakeExp s = U.Exp.fold {kind = kind, con = con, exp = exp} s
194 194