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/branches/SMLNJ/src/compiler/Semant/basics/env.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/Semant/basics/env.sml

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

revision 24, Thu Mar 12 00:49:58 1998 UTC revision 45, Sun Mar 22 20:11:09 1998 UTC
# Line 252  Line 252 
252     in f env     in f env
253    end    end
254    
 (*  
 val look = fn x =>  
   Stats.doPhase (Stats.makePhase "Compiler 032 2-lookEnv ") look x  
 *)  
   
255  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)
256    
257  exception NoSymbolList  exception NoSymbolList

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

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