[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv13345

Modified Files:
	scavenge.lisp 
Log Message:
Minor edit.

Date: Tue Jul 13 15:44:37 2004
Author: ffjeld

Index: movitz/losp/muerte/scavenge.lisp
diff -u movitz/losp/muerte/scavenge.lisp:1.17 movitz/losp/muerte/scavenge.lisp:1.18
--- movitz/losp/muerte/scavenge.lisp:1.17	Tue Jul 13 06:00:36 2004
+++ movitz/losp/muerte/scavenge.lisp	Tue Jul 13 15:44:37 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Mar 29 14:54:08 2004
 ;;;;                
-;;;; $Id: scavenge.lisp,v 1.17 2004/07/13 13:00:36 ffjeld Exp $
+;;;; $Id: scavenge.lisp,v 1.18 2004/07/13 22:44:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -150,7 +150,7 @@
 	     (function
 	      (assert (= 0 (funobj-frame-num-unboxed funobj)))
 	      (map-heap-words function (+ nether-frame 2) frame))
-	     ((eql 0)
+	     ((eql 0)			; An interrupt-frame?
 	      ;; 1. Scavenge the interrupt-frame
 	      (map-heap-words function
 			      (+ nether-frame 2)