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

cs: fix options-argument handling in compile-linklet

Browse Source
This commit is contained in:
Matthew Flatt 2018-03-20 08:27:54 -06:00
parent c442e9707f
commit 3fef5de8b9
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/src/cs/linklet.sls
View File

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