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/FLINT/main/literals.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/main/literals.sml

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

revision 121, Sat Jun 6 15:03:25 1998 UTC revision 122, Sat Jun 6 15:05:38 1998 UTC
# Line 17  Line 17 
17    
18  fun bug msg = ErrorMsg.impossible ("Literals: "^msg)  fun bug msg = ErrorMsg.impossible ("Literals: "^msg)
19  val ident = fn x => x  val ident = fn x => x
20  val liftLiterals = Control.CG.liftLiterals  val liftLiterals = Control.FLINT.liftLiterals
21  fun mkv _ = LV.mkLvar()  fun mkv _ = LV.mkLvar()
22    
23  (****************************************************************************  (****************************************************************************

Legend:
Removed from v.121  
changed lines
  Added in v.122

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