From 3fef5de8b9be3c4997643f7907023a1168e7099b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 20 Mar 2018 08:27:54 -0600
Subject: [PATCH] cs: fix options-argument handling in `compile-linklet`

---
 racket/src/cs/linklet.sls | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/racket/src/cs/linklet.sls b/racket/src/cs/linklet.sls
index 53f514634b..454d93b6be 100644
--- a/racket/src/cs/linklet.sls
+++ b/racket/src/cs/linklet.sls
@@ -353,11 +353,12 @@
 
   (define compile-linklet
     (case-lambda
-     [(c) (compile-linklet c #f #f (lambda (key) (values #f #f)) #t)]
-     [(c name) (compile-linklet c name #f (lambda (key) (values #f #f)) #t)]
-     [(c name import-keys) (compile-linklet c name import-keys (lambda (key) (values #f #f)) #t)]
-     [(c name import-keys get-import) (compile-linklet c name import-keys get-import #t)]
-     [(c name import-keys get-import serializable?)
+     [(c) (compile-linklet c #f #f (lambda (key) (values #f #f)) '(serializable))]
+     [(c name) (compile-linklet c name #f (lambda (key) (values #f #f)) '(serializable))]
+     [(c name import-keys) (compile-linklet c name import-keys (lambda (key) (values #f #f)) '(serializable))]
+     [(c name import-keys get-import) (compile-linklet c name import-keys get-import '(serializable))]
+     [(c name import-keys get-import options)
+      (define serializable? (#%memq 'serializable options))
       (performance-region
        'schemify
        (define jitify-mode?