Mercurial > urweb

comparison src/elab_env.sml @ 48:0a5c312de09a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of FFI
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Jun 2008 09:27:29 -0400
parents b3fbbc6cb1e5
children d3cc191cb25f
comparison
equal deleted inserted replaced
47:ac4c0b4111ba 48:0a5c312de09a
288 case d of 288 case d of
289 DCon (x, n, k, c) => pushCNamedAs env x n k (SOME c) 289 DCon (x, n, k, c) => pushCNamedAs env x n k (SOME c)
290 | DVal (x, n, t, _) => pushENamedAs env x n t 290 | DVal (x, n, t, _) => pushENamedAs env x n t
291 | DSgn (x, n, sgn) => pushSgnNamedAs env x n sgn 291 | DSgn (x, n, sgn) => pushSgnNamedAs env x n sgn
292 | DStr (x, n, sgn, _) => pushStrNamedAs env x n sgn 292 | DStr (x, n, sgn, _) => pushStrNamedAs env x n sgn
293 | DFfiStr (x, n, sgn) => pushStrNamedAs env x n sgn
293 294
294 fun sgiBinds env (sgi, _) = 295 fun sgiBinds env (sgi, _) =
295 case sgi of 296 case sgi of
296 SgiConAbs (x, n, k) => pushCNamedAs env x n k NONE 297 SgiConAbs (x, n, k) => pushCNamedAs env x n k NONE
297 | SgiCon (x, n, k, c) => pushCNamedAs env x n k (SOME c) 298 | SgiCon (x, n, k, c) => pushCNamedAs env x n k (SOME c)