summaryrefslogtreecommitdiff
path: root/module/oop/goops/dispatch.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/oop/goops/dispatch.scm')
-rw-r--r--module/oop/goops/dispatch.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm
index 21a13c80b..ec03f599a 100644
--- a/module/oop/goops/dispatch.scm
+++ b/module/oop/goops/dispatch.scm
@@ -206,7 +206,7 @@
(with-fluids ((*in-progress* (cons gf in-progress)))
(let ((dispatch (compute-dispatch-procedure
gf (slot-ref gf 'effective-methods))))
- (slot-set! gf 'dispatch-procedure dispatch)
+ (slot-set! gf 'procedure dispatch)
(apply dispatch args))))))))))
(define (cache-dispatch gf args)
@@ -242,7 +242,7 @@
(cache (cons (vector len types rest? cmethod)
(slot-ref gf 'effective-methods))))
(slot-set! gf 'effective-methods cache)
- (slot-set! gf 'dispatch-procedure (delayed-compile gf))
+ (slot-set! gf 'procedure (delayed-compile gf))
cmethod))
(parse 0 args))