From d8ea41df23c8410721b9f8d750744a3d777115c5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 3 Aug 2018 06:58:15 -0600
Subject: [PATCH] cs: fix `malloc` argument parsing

Closes #2207
---
 racket/src/cs/rumble/foreign.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/racket/src/cs/rumble/foreign.ss b/racket/src/cs/rumble/foreign.ss
index 460ef9edd6..545dabc8aa 100644
--- a/racket/src/cs/rumble/foreign.ss
+++ b/racket/src/cs/rumble/foreign.ss
@@ -1192,11 +1192,11 @@
             (duplicate-argument "source for copy" copy-from (car args))
             (loop (cdr args) count type (car args) mode fail-mode))]
        [(malloc-mode? (car args))
-        (if copy-from
+        (if mode
             (duplicate-argument "mode" mode (car args))
             (loop (cdr args) count type copy-from (car args) fail-mode))]
        [(eq? (car args) 'failok)
-        (if copy-from
+        (if fail-mode
             (duplicate-argument "failure mode" fail-mode (car args))
             (loop (cdr args) count type copy-from mode (car args)))]
        [else