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

Circumvent https://github.com/racket/racket/issues/1697

Browse Source
This commit is contained in:
Georges Dupéron 2017-05-19 00:01:10 +02:00
parent f3d357943a
commit 397260eb13
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
private/pure-function.rkt
View File

@ -85,13 +85,21 @@
)))) ))))
(define-for-syntax (built-in-pure-function? id) (define-for-syntax (built-in-pure-function? id)
(define (empty-mpi? mpi)
(equal? (call-with-values (λ () (module-path-index-split mpi))
list)
'(#f #f)))
(or (free-id-set-member? built-in-pure-functions-free-id-set id) (or (free-id-set-member? built-in-pure-functions-free-id-set id)
(match (identifier-binding id) (let ([ib (identifier-binding id)])
[(list (app collapse-module-path-index '(lib "racket/private/kw.rkt")) (match ib
'make-optional-keyword-procedure ;; circumvent https://github.com/racket/racket/issues/1697
_ _ _ _ _) [(list* (? empty-mpi?) _) #f]
#t] [(list* (app collapse-module-path-index
[_ #f]))) '(lib "racket/private/kw.rkt"))
'make-optional-keyword-procedure
_)
#t]
[_ #f]))))
(define-syntax (def-built-in-set stx) (define-syntax (def-built-in-set stx)
(syntax-case stx () (syntax-case stx ()