mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +02:00
Code Activity

Fix GOOPS method compilation bug when no next-method exists

Browse source 
* module/oop/goops/compile.scm (compute-cmethod): Fix a bug
  that caused the method compiler to barf while compiling a
  method that calls (next-method), if there is no applicable
  next method.
This commit is contained in:
Mark H Weaver 2011-01-29 22:07:49 -05:00 • committed by Andy Wingo
parent 8f2339c436
commit 074c414e29
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/oop/goops/compile.scm
View file

@ -48,7 +48,7 @@
(let ((make-procedure (slot-ref (car methods) 'make-procedure))) (let ((make-procedure (slot-ref (car methods) 'make-procedure)))
(if make-procedure (if make-procedure
(make-procedure (make-procedure
(if (null? methods) (if (null? (cdr methods))
(lambda args (lambda args
(no-next-method (method-generic-function (car methods)) args)) (no-next-method (method-generic-function (car methods)) args))
(compute-cmethod (cdr methods) types))) (compute-cmethod (cdr methods) types)))