Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/Semant/basics/env.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/basics/env.sml

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

revision 17, Wed Mar 11 21:00:18 1998 UTC revision 24, Thu Mar 12 00:49:58 1998 UTC
# Line 252  Line 252 
252     in f env     in f env
253    end    end
254    
255    (*
256    val look = fn x =>
257      Stats.doPhase (Stats.makePhase "Compiler 032 2-lookEnv ") look x
258    *)
259    
260  fun bind (Symbol.SYMBOL(i,s),binding,env) = BIND (i,s,binding,env)  fun bind (Symbol.SYMBOL(i,s),binding,env) = BIND (i,s,binding,env)
261    
262  exception NoSymbolList  exception NoSymbolList

Legend:
Removed from v.17  
changed lines
  Added in v.24

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