Index: code/gc.sml
===================================================================
RCS file: /afs/cs.cmu.edu/user/spoons/courses/cvsroot/15-312/asst6/code/gc.sml,v
retrieving revision 1.6
diff -c -r1.6 gc.sml
*** code/gc.sml	24 Oct 2003 19:33:52 -0000	1.6
--- code/gc.sml	29 Oct 2003 20:50:32 -0000
***************
*** 123,129 ****
    fun heapToString (Hf, nil, Ht, true) = 
        "#From: " ^ (Mem.memoryToString Hf MPrint.lvalueToString) ^
        " Scan: - To: " ^ 
!       (Mem.memoryToString Hf MPrint.lvalueToString)
      |  heapToString (Hf, loc::S, Ht, true) = 
        "#From: " ^ (Mem.memoryToString Hf MPrint.lvalueToString) ^
        " Scan: " ^ 
--- 123,129 ----
    fun heapToString (Hf, nil, Ht, true) = 
        "#From: " ^ (Mem.memoryToString Hf MPrint.lvalueToString) ^
        " Scan: - To: " ^ 
!       (Mem.memoryToString Ht MPrint.lvalueToString)
      |  heapToString (Hf, loc::S, Ht, true) = 
        "#From: " ^ (Mem.memoryToString Hf MPrint.lvalueToString) ^
        " Scan: " ^ 
Index: code/memory.sml
===================================================================
RCS file: /afs/cs.cmu.edu/user/spoons/courses/cvsroot/15-312/asst6/code/memory.sml,v
retrieving revision 1.2
diff -c -r1.2 memory.sml
*** code/memory.sml	24 Oct 2003 03:39:23 -0000	1.2
--- code/memory.sml	29 Oct 2003 18:01:03 -0000
***************
*** 19,25 ****
  
    (* should be used only be the collector *)
    val assign : 'a memory -> loc -> 'a -> unit
!   val clear : 'a memory -> unit
    val contains : 'a memory -> loc -> bool
  
    val size : 'a memory -> int
--- 19,28 ----
  
    (* should be used only be the collector *)
    val assign : 'a memory -> loc -> 'a -> unit
!   (* clears a particular cell corresponding to the given location *)
!   val clear : 'a memory -> loc -> unit
!   (* clears ALL cells in memory *)
!   val clearAll : 'a memory -> unit
    val contains : 'a memory -> loc -> bool
  
    val size : 'a memory -> int
***************
*** 66,72 ****
              | NONE => update (H, loc, SOME(lv)))
        handle Subscript => raise Error "Bad location: out of bounds"
  
!   fun clear H =
        modify (fn _ => NONE) H
  
    fun contains H loc =
--- 69,79 ----
              | NONE => update (H, loc, SOME(lv)))
        handle Subscript => raise Error "Bad location: out of bounds"
  
!   fun clear H loc =
!       update (H, loc, NONE)
!       handle Subscript => raise Error "Bad location: out of bounds"
! 
!   fun clearAll H =
        modify (fn _ => NONE) H
  
    fun contains H loc =