CVS: sml-dist/src/ml-yacc/lib parser2.sml, 1.5.12.1, 1.5.12.2

Update of /cvsroot/smlnj/sml-dist/src/ml-yacc/lib
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3562/src/ml-yacc/lib

Modified Files:
      Tag: primop-branch-2
	parser2.sml 
Log Message:
added further debugging instrumentation

Index: parser2.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/ml-yacc/lib/parser2.sml,v
retrieving revision 1.5.12.1
retrieving revision 1.5.12.2
diff -C2 -d -r1.5.12.1 -r1.5.12.2
*** parser2.sml	31 Jul 2006 18:07:17 -0000	1.5.12.1
--- parser2.sml	28 Aug 2006 22:57:54 -0000	1.5.12.2
***************
*** 258,264 ****
  		  let val newStack = (s,value) :: stack
  		      val newLexPair = Stream.get lexer
! 		  in parseStep(newLexPair,(s,value)::stack, 
! 			       Fifo.put(( newStack,newLexPair),queue) ,distance-1 ) 
!  		  end
  		 | REDUCE i =>
  		    (case saction(i,leftPos,stack,arg)
--- 258,264 ----
  		  let val newStack = (s,value) :: stack
  		      val newLexPair = Stream.get lexer
! 		  in parseStep(newLexPair,(s,value)::stack,
! 			       Fifo.put((newStack,newLexPair),queue),distance-1)
! 		  end
  		 | REDUCE i =>
  		    (case saction(i,leftPos,stack,arg)


-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642