It's FOCUS-VALUE-REF, not FOCUS-VALUE.
This commit is contained in:
parent
80253ae452
commit
11c8b72704
|
@ -19,4 +19,4 @@
|
||||||
|
|
||||||
(define (make-focus-object-reference table obj)
|
(define (make-focus-object-reference table obj)
|
||||||
(let ((id (add-focus-object table obj)))
|
(let ((id (add-focus-object table obj)))
|
||||||
`(focus-value ,id)))
|
`(focus-value-ref ,id)))
|
||||||
|
|
Loading…
Reference in New Issue