Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/staging/src/compiler/common/strand-util.sml
ViewVC logotype

Diff of /branches/staging/src/compiler/common/strand-util.sml

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

revision 2634, Mon May 26 13:48:02 2014 UTC revision 2635, Mon May 26 14:06:39 2014 UTC
# Line 29  Line 29 
29        | propToString StrandCommunication = "StrandCommunication"        | propToString StrandCommunication = "StrandCommunication"
30        | propToString GlobalReduce = "GlobalReduce"        | propToString GlobalReduce = "GlobalReduce"
31    
32        fun propsToString [] = "none"
33          | propsToString [p] = propToString p
34          | propsToString (p::props) = String.concat(
35              propToString p
36                :: List.foldr (fn (p, l) => "," :: propToString p :: l) [] props)
37    
38      fun hasProp (prop : program_prop) = List.exists (fn p => prop = p)      fun hasProp (prop : program_prop) = List.exists (fn p => prop = p)
39    
40    end    end

Legend:
Removed from v.2634  
changed lines
  Added in v.2635

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