suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix system.rktd 'link entry on Unix

Browse Source
This commit is contained in:
Matthew Flatt 2021-01-18 08:21:45 -07:00
parent 6b0b3e0a1e
commit 3ca0799714
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/cs/c/gen-system.rkt
View File

@ -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?)