From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 1 Dec 2018 14:34:07 +0000 (+0000)
Subject: Fix thinko.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~77
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6579b9637373fb8f849fb6c2916e4f8f52284590;p=mit-scheme.git

Fix thinko.
---

diff --git a/src/compiler/base/ctypes.scm b/src/compiler/base/ctypes.scm
index 1e5890a41..ae438cf95 100644
--- a/src/compiler/base/ctypes.scm
+++ b/src/compiler/base/ctypes.scm
@@ -68,7 +68,7 @@ USA.
    (lambda (application)
      (case (application-type application)
        ((COMBINATION) '())
-       ((RETURN) (list (return/operand return)))
+       ((RETURN) (list (return/operand application)))
        (else (list (application-type application)))))))
 
 (define-integrable (application-block application)