[Tinyos-commits] CVS: tinyos-1.x/tos/lib/VM/languages/motlle/mate MotlleObjectsM.nc, 1.4, 1.5

[David Gay]

Update of /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/mate
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31574

Modified Files:
	MotlleObjectsM.nc 
Log Message:
V.read/V.write


Index: MotlleObjectsM.nc
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/mate/MotlleObjectsM.nc,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MotlleObjectsM.nc	23 Oct 2005 21:09:24 -0000	1.4
--- MotlleObjectsM.nc	23 Oct 2005 22:11:05 -0000	1.5
***************
*** 306,310 ****
      /* Check for valid, non-circular list using marks. Clear marks
         when done. */
!     for (scan = l;; scan = (call T.pair(l))->cdr)
        {
  	if (call T.nilp(scan))
--- 306,310 ----
      /* Check for valid, non-circular list using marks. Clear marks
         when done. */
!     for (scan = l;; scan = call V.read(&(call T.pair(l))->cdr))
        {
  	if (call T.nilp(scan))
***************
*** 317,321 ****
  	call V.mark(scan);
        }
!     for (scan = l;; scan = (call T.pair(l))->cdr)
        {
  	if (call T.nilp(scan) || !call V.marked(scan))
--- 317,321 ----
  	call V.mark(scan);
        }
!     for (scan = l;; scan = call V.read(&(call T.pair(l))->cdr))
        {
  	if (call T.nilp(scan) || !call V.marked(scan))