diff options
Diffstat (limited to 'module/oop/goops/dispatch.scm')
-rw-r--r-- | module/oop/goops/dispatch.scm | 4 |
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)) |