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

SCM Repository

[diderot] Diff of /branches/staging/src/compiler/basis/basis.sml
ViewVC logotype

Diff of /branches/staging/src/compiler/basis/basis.sml

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

revision 2151, Sun Feb 17 19:07:20 2013 UTC revision 2152, Sun Feb 17 19:39:37 2013 UTC
# Line 80  Line 80 
80    
81      (* seed the basis environment *)      (* seed the basis environment *)
82      val env = let      val env = let
83            fun insF (x, env) = Env.insertFunc(env, Atom.atom(Var.nameOf x), [x])            fun insF (x, env) = Env.insertFunc(env, Atom.atom(Var.nameOf x), Env.PrimFun[x])
84            fun insV (x, env) = Env.insertGlobal(env, Atom.atom(Var.nameOf x), x)            fun insV (x, env) = Env.insertGlobal(env, Atom.atom(Var.nameOf x), x)
85            fun insOvld ((f, fns), env) = Env.insertFunc(env, f, fns)            fun insOvld ((f, fns), env) = Env.insertFunc(env, f, Env.PrimFun fns)
86            val env = List.foldl insF (Env.new()) basisFunctions            val env = List.foldl insF (Env.new()) basisFunctions
87            val env = List.foldl insV env basisVars            val env = List.foldl insV env basisVars
88            val env = List.foldl insOvld env overloads            val env = List.foldl insOvld env overloads

Legend:
Removed from v.2151  
changed lines
  Added in v.2152

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