Mercurial > urweb
diff src/expl_util.sml @ 338:e976b187d73a
SQL sequences
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 14 Sep 2008 11:02:18 -0400 |
parents | 3aa010e97db9 |
children | 075b36dbb1a4 |
line wrap: on
line diff
--- a/src/expl_util.sml Sat Sep 13 20:15:30 2008 -0400 +++ b/src/expl_util.sml Sun Sep 14 11:02:18 2008 -0400 @@ -416,6 +416,7 @@ S.map2 (con ctx c, fn c' => (SgiTable (tn, x, n, c'), loc)) + | SgiSequence _ => S.return2 siAll and sg ctx s acc = S.bindP (sg' ctx s acc, sgn ctx) @@ -438,7 +439,8 @@ bind (ctx, Str (x, sgn)) | SgiSgn (x, _, sgn) => bind (ctx, Sgn (x, sgn)) - | SgiTable _ => ctx, + | SgiTable _ => ctx + | SgiSequence _ => ctx, sgi ctx si)) ctx sgis, fn sgis' => (SgnConst sgis', loc))