Move `make-focus-object-reference' to focus.scm

2005-06-01 11:49:07 +00:00 · 2005-06-01 11:49:07 +00:00 · 7a87280516
parent 53ed9fc721
commit 7a87280516
1 changed files with 3 additions and 0 deletions
--- a/scheme/focus.scm
+++ b/scheme/focus.scm
@ -17,3 +17,6 @@
 (define (get-focus-object focus-table index)
  (table-ref (focus-table-table focus-table) index))

+(define (make-focus-object-reference table obj)
+  (let ((id (add-focus-object table obj)))
+    `(focus-value ,id)))