[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

Revision: 3550
Author: ksprotte
URL: http://bknr.net/trac/changeset/3550

better implementation for contract-tree-needs-update-p

U   trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp
===================================================================
--- trunk/projects/bos/web/contract-tree.lisp	2008-07-22 10:42:59 UTC (rev 3549)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-07-22 10:51:32 UTC (rev 3550)
@@ -299,11 +299,7 @@
   (map-nodes #'contract-node-update-image *contract-tree*))
 
 (defun contract-tree-needs-update-p ()
-  (map-nodes (lambda (node) (when (contract-node-update-image-needed-p node)
-                              (return-from contract-tree-needs-update-p t)))
-             *contract-tree*             
-             :order :breadth-first)
-  nil)
+  (contract-node-update-image-needed-p *contract-tree*))
 
 ;;; image handler
 (defclass contract-tree-image-handler (page-handler)