Mercurial > urweb

comparison src/reduce_local.sml @ 1848:e15234fbb163

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.tryRpc
author Adam Chlipala <adam@chlipala.net>
date Tue, 16 Apr 2013 10:55:48 -0400
parents 0577be31a435
children
comparison
equal deleted inserted replaced
1847:8958b580d026 1848:e15234fbb163
1 (* Copyright (c) 2008-2010, Adam Chlipala 1 (* Copyright (c) 2008-2010, 2013, Adam Chlipala
2 * All rights reserved. 2 * All rights reserved.
3 * 3 *
4 * Redistribution and use in source and binary forms, with or without 4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are met: 5 * modification, are permitted provided that the following conditions are met:
6 * 6 *
351 | EWrite e => (EWrite (exp env e), loc) 351 | EWrite e => (EWrite (exp env e), loc)
352 | EClosure (n, es) => (EClosure (n, map (exp env) es), loc) 352 | EClosure (n, es) => (EClosure (n, map (exp env) es), loc)
353 353
354 | ELet (x, t, e1, e2) => (ELet (x, con env t, exp env e1, exp (Unknown :: env) e2), loc) 354 | ELet (x, t, e1, e2) => (ELet (x, con env t, exp env e1, exp (Unknown :: env) e2), loc)
355 355
356 | EServerCall (n, es, t) => (EServerCall (n, map (exp env) es, con env t), loc) 356 | EServerCall (n, es, t, fm) => (EServerCall (n, map (exp env) es, con env t, fm), loc)
357 357
358 fun reduce file = 358 fun reduce file =
359 let 359 let
360 fun doDecl (d as (_, loc)) = 360 fun doDecl (d as (_, loc)) =
361 case #1 d of 361 case #1 d of