Mercurial > urweb
comparison src/mono_env.sml @ 271:42dfb0d61cf0
'database' declaration threaded through compiler
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 02 Sep 2008 10:51:41 -0400 |
parents | ab86aa858e6c |
children | 09c66a30ef32 |
comparison
equal
deleted
inserted
replaced
270:b9b02613c0c2 | 271:42dfb0d61cf0 |
---|---|
105 env xncs | 105 env xncs |
106 end | 106 end |
107 | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s | 107 | DVal (x, n, t, e, s) => pushENamed env x n t (SOME e) s |
108 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis | 108 | DValRec vis => foldl (fn ((x, n, t, e, s), env) => pushENamed env x n t NONE s) env vis |
109 | DExport _ => env | 109 | DExport _ => env |
110 | DDatabase _ => env | |
110 | 111 |
111 fun patBinds env (p, loc) = | 112 fun patBinds env (p, loc) = |
112 case p of | 113 case p of |
113 PWild => env | 114 PWild => env |
114 | PVar (x, t) => pushERel env x t NONE | 115 | PVar (x, t) => pushERel env x t NONE |