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/MLRISC/instructions/mlriscAnnotations.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/instructions/mlriscAnnotations.sml

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

revision 983, Wed Nov 21 18:44:55 2001 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 26  Line 26 
26      (* no effect at all; just allows you to insert comments *)      (* no effect at all; just allows you to insert comments *)
27     val COMMENT = A.new(SOME(fn s => s))     val COMMENT = A.new(SOME(fn s => s))
28    
29        (* Instructions in the block should not be reordered *)
30       val NOREORDER = A.new(NONE : (unit->string) option)
31    
32     fun listify f =     fun listify f =
33     let fun g [] = ""     let fun g [] = ""
34           | g [x] = f x           | g [x] = f x

Legend:
Removed from v.983  
changed lines
  Added in v.984

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