Mercurial > urweb

comparison src/elab_util.sml @ 41:1405d8c26790

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Beginning of functor elaboration
author Adam Chlipala <adamc@hcoop.net>
date Thu, 19 Jun 2008 16:04:28 -0400
parents 44b5405e74c7
children b3fbbc6cb1e5
comparison
equal deleted inserted replaced
40:e3d3c2791105 41:1405d8c26790
362 sgi ctx si)) ctx sgis, 362 sgi ctx si)) ctx sgis,
363 fn sgis' => 363 fn sgis' =>
364 (SgnConst sgis', loc)) 364 (SgnConst sgis', loc))
365 365
366 | SgnVar _ => S.return2 sAll 366 | SgnVar _ => S.return2 sAll
367 | SgnFun (m, n, s1, s2) =>
368 S.bind2 (sg ctx s1,
369 fn s1' =>
370 S.map2 (sg (bind (ctx, Str (m, s1'))) s2,
371 fn s2' =>
372 (SgnFun (m, n, s1', s2'), loc)))
367 | SgnError => S.return2 sAll 373 | SgnError => S.return2 sAll
368 in 374 in
369 sg 375 sg
370 end 376 end
371 377