From 6579b9637373fb8f849fb6c2916e4f8f52284590 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 1 Dec 2018 14:34:07 +0000 Subject: [PATCH] Fix thinko. --- src/compiler/base/ctypes.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1