Fix add-focus-value

2005-06-01 11:26:22 +00:00 · 2005-06-01 11:26:22 +00:00 · 30b59e1e72
parent 4b7bbddc2a
commit 30b59e1e72
1 changed files with 1 additions and 0 deletions
--- a/scheme/focus.scm
+++ b/scheme/focus.scm
@ -9,6 +9,7 @@

 (define (add-focus-object focus-table object)
  (let ((count (+ 1 (focus-table-count focus-table))))
+    (set-focus-table-count! focus-table count)
    (table-set! 
     (focus-table-table focus-table) count object)
    count))