Mercurial > urweb

comparison src/cjr_env.sml @ 273:09c66a30ef32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Table declarations pushed to Cjr
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Sep 2008 13:09:54 -0400
parents 42dfb0d61cf0
children fdd7a698be01
comparison
equal deleted inserted replaced
272:4d80d6122df1 273:09c66a30ef32
160 let 160 let
161 val t = foldl (fn ((_, arg), t) => (TFun (arg, t), loc)) ran args 161 val t = foldl (fn ((_, arg), t) => (TFun (arg, t), loc)) ran args
162 in 162 in
163 pushENamed env fx n t 163 pushENamed env fx n t
164 end) env vis 164 end) env vis
165 | DTable _ => env
165 | DDatabase _ => env 166 | DDatabase _ => env
166 167
167 168
168 end 169 end