It's FOCUS-VALUE-REF, not FOCUS-VALUE.

2005-08-21 16:55:34 +00:00 · 2005-08-21 16:55:34 +00:00 · 11c8b72704
parent 80253ae452
commit 11c8b72704
1 changed files with 1 additions and 1 deletions
--- a/scheme/focus.scm
+++ b/scheme/focus.scm
@ -19,4 +19,4 @@

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