CVS: sml-dist/src/compiler/Semant/basics inlinfo.sml, 1.6.8.1, 1.6.8.2

Update of /cvsroot/smlnj/sml-dist/src/compiler/Semant/basics
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv29796

Modified Files:
      Tag: primop-branch-2
	inlinfo.sml 
Log Message:
Fixed some syntax errors

Index: inlinfo.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Semant/basics/inlinfo.sml,v
retrieving revision 1.6.8.1
retrieving revision 1.6.8.2
diff -C2 -d -r1.6.8.1 -r1.6.8.2
*** inlinfo.sml	19 Jun 2006 22:29:00 -0000	1.6.8.1
--- inlinfo.sml	19 Jun 2006 22:37:46 -0000	1.6.8.2
***************
*** 27,31 ****
        | selStrInfo (Null, _) = Null
        | selStrInfo (Info _, i) = bug "Unexpected selection from Info"
!     end
  
      fun match i { inl_prim, inl_str, inl_no } =
--- 27,31 ----
        | selStrInfo (Null, _) = Null
        | selStrInfo (Info _, i) = bug "Unexpected selection from Info"
!    
  
      fun match i { inl_prim, inl_str, inl_no } =
***************
*** 46,50 ****
  		      "{" :: loop (h,foldr (fn (x, a) => "," :: loop (x, a))
                                             ("}" :: acc)
! 					   t)
      in
  	concat (loop (i, []))
--- 46,50 ----
  		      "{" :: loop (h,foldr (fn (x, a) => "," :: loop (x, a))
                                             ("}" :: acc)
! 					   t))
      in
  	concat (loop (i, []))