summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/oop/goops.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index 3bbf3047c..2254f93e5 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -491,7 +491,10 @@
;; contain a call to `next-method'
`(lambda ,(formals args)
,@(if (null? body)
- '((begin))
+ ;; This used to be '((begin)), but
+ ;; guile's memoizer doesn't like
+ ;; (lambda args (begin)).
+ '((if #f #f))
body)))))))
;;;