X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/a898c9e295c84062379cda5cd42f113bee0138e2..b0ff693c25bf81f935efa15a44fdad6ce95e9f91:/src/method-impl.lisp?ds=inline

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 1cb9479..49c6676 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -323,12 +323,11 @@ (defun basic-effective-method-body (codegen target method body)
       method
     (let* ((message-type (sod-message-type message))
 	   (return-type (c-type-subtype message-type))
-	   (voidp (eq return-type (c-type void)))
 	   (basic-tail (effective-method-basic-argument-names method)))
       (flet ((method-kernel (target)
 	       (dolist (before before-methods)
 		 (invoke-method codegen :void basic-tail before))
-	       (if (or voidp (null after-methods))
+	       (if (null after-methods)
 		   (funcall body target)
 		   (convert-stmts codegen target return-type
 				  (lambda (target)