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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/mid-to-low/mk-low-ir.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/mid-to-low/mk-low-ir.sml

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

revision 3665, Sat Feb 6 16:18:59 2016 UTC revision 3666, Sat Feb 6 16:45:48 2016 UTC
# Line 64  Line 64 
64      structure E = Ein      structure E = Ein
65      structure IMap = IntRedBlackMap      structure IMap = IntRedBlackMap
66    
   (* pick the n'th elements from a pair of lists *)  
     fun nthPair (x::_, y::_, 0) = (x, y)  
       | nthPair (_::xs, _::ys, n) = nthPair (xs, ys, n-1)  
       | nthPair _ = raise Subscript  
   
67     fun lookupMu (mapp, E.V id) = (case IMap.find (mapp, id)     fun lookupMu (mapp, E.V id) = (case IMap.find (mapp, id)
68            of SOME n => n            of SOME n => n
69             | NONE => raise Fail(concat["lookupMu(_, V ", Int.toString id, "): out of bounds"])             | NONE => raise Fail(concat["lookupMu(_, V ", Int.toString id, "): out of bounds"])

Legend:
Removed from v.3665  
changed lines
  Added in v.3666

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