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/cm/semant/primitive.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/semant/primitive.sml

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

revision 274, Fri May 14 05:23:02 1999 UTC revision 278, Mon May 17 14:53:49 1999 UTC
# Line 13  Line 13 
13      val fromString : string -> primitive option      val fromString : string -> primitive option
14      val toString : primitive -> string      val toString : primitive -> string
15    
16        (* the domain of (lookup p) must always properly include (exports p) *)
17      val exports: primitive -> SymbolSet.set      val exports: primitive -> SymbolSet.set
18        val lookup: primitive -> Symbol.symbol -> GenericVC.BareEnvironment.cmEnv
19  end  end
20    
21  structure Primitive :> PRIMITIVE = struct  structure Primitive :> PRIMITIVE = struct
# Line 28  Line 30 
30        | toString HELPER = "primitive_helper"        | toString HELPER = "primitive_helper"
31    
32      fun exports p = (ignore Dummy.v; SymbolSet.empty)      fun exports p = (ignore Dummy.v; SymbolSet.empty)
33        fun lookup p s = (ignore Dummy.v; GenericVC.BareEnvironment.CM_NONE)
34  end  end

Legend:
Removed from v.274  
changed lines
  Added in v.278

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