mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Merged from mvo-vcell-cleanup-1-branch.

Browse source
This commit is contained in:
Marius Vollmer 2001-05-15 14:59:42 +00:00
parent 86d31dfe7d
commit 296ff5e78b
7 changed files with 90 additions and 121 deletions
Download patch file Download diff file Expand all files Collapse all files

4
oop/goops/compile.scm
View file

@ -114,7 +114,9 @@
(define (compile-method methods types)
(let* ((proc (method-procedure (car methods)))
(src (procedure-source proc))
;; XXX - procedure-source can not be guaranteed to be
;; reliable or efficient
(src (procedure-source proc))
(formals (source-formals src))
(body (source-body src)))
(if (next-method? body)