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/Basics/mlcomp/symbol.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Basics/mlcomp/symbol.sml

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

revision 1067, Fri Feb 15 17:08:17 2002 UTC revision 1068, Fri Feb 15 19:18:00 2002 UTC
# Line 68  Line 68 
68            | TYVspace => "type variable"            | TYVspace => "type variable"
69            | FSIGspace => "functor signature"            | FSIGspace => "functor signature"
70    
71      fun describe s = concat [nameSpaceToString (nameSpace s), " ", name s]
72    
73    fun symbolToString(SYMBOL(number,name)) : string =    fun symbolToString(SYMBOL(number,name)) : string =
74          case number - HashString.hashString name          case number - HashString.hashString name
75           of 0w0 => "VAL$"^name           of 0w0 => "VAL$"^name

Legend:
Removed from v.1067  
changed lines
  Added in v.1068

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