cs: fix malloc argument parsing

Closes #2207
2018-08-03 06:58:15 -06:00 · 2018-08-03 06:58:15 -06:00 · d8ea41df23
commit d8ea41df23
parent 258160707f
1 changed files with 2 additions and 2 deletions
--- 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