Home My Page Projects Code Snippets Project Openings 3D graphics for Standard ML
Summary Activity SCM

SCM Repository

[sml3d] Diff of /trunk/sml3d/src/particles/compiler/checker.sml
ViewVC logotype

Diff of /trunk/sml3d/src/particles/compiler/checker.sml

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

revision 862, Tue Apr 27 01:27:39 2010 UTC revision 863, Tue Apr 27 23:09:18 2010 UTC
# Line 207  Line 207 
207            | matchParams(al, []) = false            | matchParams(al, []) = false
208            | matchParams([], al) = false            | matchParams([], al) = false
209            | matchParams(arg1 :: argList1, arg2 :: argList2) = let            | matchParams(arg1 :: argList1, arg2 :: argList2) = let
210              val IR.V{varType=t1, ...} = arg1              val IR.V{varType=t1, name=n1, ...} = arg1
211              val IR.V{varType=t2, ...} = arg2              val IR.V{varType=t2, name=n2, ...} = arg2
212             in             in
213              if t1 = t2 then matchParams(argList1, argList2) else false              if t1 = t2 then matchParams(argList1, argList2) else raise Fail(String.concat["Param mismatch: ", n1, " and ", n2])
214             end (* matchParams *)             end (* matchParams *)
215              fun searchBlks(id, []) = false              fun searchBlks(id, []) = false
216                | searchBlks(id, blk :: blks) = let                | searchBlks(id, blk :: blks) = let

Legend:
Removed from v.862  
changed lines
  Added in v.863

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