Mercurial > urweb
diff src/expl_env.sml @ 48:0a5c312de09a
Start of FFI
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 22 Jun 2008 09:27:29 -0400 |
parents | d16ef24de78b |
children | d3cc191cb25f |
line wrap: on
line diff
--- a/src/expl_env.sml Thu Jun 19 18:13:33 2008 -0400 +++ b/src/expl_env.sml Sun Jun 22 09:27:29 2008 -0400 @@ -242,6 +242,7 @@ | DVal (x, n, t, _) => pushENamed env x n t | DSgn (x, n, sgn) => pushSgnNamed env x n sgn | DStr (x, n, sgn, _) => pushStrNamed env x n sgn + | DFfiStr (x, n, sgn) => pushStrNamed env x n sgn fun sgiBinds env (sgi, _) = case sgi of