Mercurial > urweb

comparison src/core_env.sml @ 718:f152f215a02c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style declarations
author Adam Chlipala <adamc@hcoop.net>
date Sun, 12 Apr 2009 10:08:11 -0400
parents d8217b4cb617
children acb8537f58f0
comparison
equal deleted inserted replaced
717:e28637743279 718:f152f215a02c
332 let 332 let
333 val t = (CApp ((CFfi ("Basis", "http_cookie"), loc), c), loc) 333 val t = (CApp ((CFfi ("Basis", "http_cookie"), loc), c), loc)
334 in 334 in
335 pushENamed env x n t NONE s 335 pushENamed env x n t NONE s
336 end 336 end
337 | DStyle (x, n, c, s) =>
338 let
339 val t = (CApp ((CFfi ("Basis", "css_class"), loc), c), loc)
340 in
341 pushENamed env x n t NONE s
342 end
337 343
338 fun patBinds env (p, loc) = 344 fun patBinds env (p, loc) =
339 case p of 345 case p of
340 PWild => env 346 PWild => env
341 | PVar (x, t) => pushERel env x t 347 | PVar (x, t) => pushERel env x t