From 3ca07997147ae0f8b12f22772d53591abece1b47 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 18 Jan 2021 08:21:45 -0700 Subject: [PATCH] cs: fix system.rktd 'link entry on Unix --- racket/src/cs/c/gen-system.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/cs/c/gen-system.rkt b/racket/src/cs/c/gen-system.rkt index c122fb4219..2bd74f6b49 100644 --- a/racket/src/cs/c/gen-system.rkt +++ b/racket/src/cs/c/gen-system.rkt @@ -63,8 +63,8 @@ (if (matches? e '(if unix-link-shared? _ _)) ;; Currently assuming shared-library mode is not a cross compile: (if (eq? (system-type 'link) 'shared) - (parse-expr (cadddr e)) - (parse-expr (caddr e))) + (parse-expr (caddr e)) + (parse-expr (cadddr e))) (error 'parse-expr "could not parse ~e" e))))))) (define-values (matches?)