Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/codegen/codegen-fn.sml
ViewVC logotype

Diff of /trunk/src/compiler/codegen/codegen-fn.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2004, Fri Oct 5 11:52:52 2012 UTC revision 2005, Fri Oct 5 11:57:00 2012 UTC
# Line 51  Line 51 
51            val strand = T.Strand.define(prog, name, state)            val strand = T.Strand.define(prog, name, state)
52            val env = T.Env.scopeStrand env            val env = T.Env.scopeStrand env
53          (* define the parameters and add them to the environment *)          (* define the parameters and add them to the environment *)
54            val params' = List.map T.Var.param (List.map (fn(x) => (env,x)) params)            val params' = List.map (fn x => T.Var.param(env, x)) params
55            val env = ListPair.foldlEq (fn (x, y, env) => T.Env.bind(env, x, y)) env (params, params')            val env = ListPair.foldlEq (fn (x, y, env) => T.Env.bind(env, x, y)) env (params, params')
56            in            in
57              T.Strand.init (strand, params', T.Tr.block (env, stateInit));              T.Strand.init (strand, params', T.Tr.block (env, stateInit));

Legend:
Removed from v.2004  
changed lines
  Added in v.2005

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0