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

backward compatibility using version-case

Browse Source
This commit is contained in:
Suzanne Soy 2021-02-26 15:05:08 +00:00
parent 971d7e05a1
commit afb3be6829
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
private/pure-safe.rkt
View File

@ -8,7 +8,8 @@
(require typed/racket/unsafe (require typed/racket/unsafe
"pure-function.rkt" "pure-function.rkt"
racket/private/promise racket/private/promise
(for-syntax racket/base (for-syntax version-case
racket/base
syntax/parse syntax/parse
phc-toolkit/untyped)) phc-toolkit/untyped))
@ -21,7 +22,11 @@
(if (syntax? x) (syntax-e x) x)) (if (syntax? x) (syntax-e x) x))
(define-syntax (delay/pure/stateless/unsafe stx) (define-syntax (delay/pure/stateless/unsafe stx)
(delayer (#'make-promise/pure/stateless '()) stx)) (version-case
[(version< (version) "7.4")
(make-delayer stx #'make-promise/pure/stateless '())]
[else
(delayer (#'make-promise/pure/stateless '()) stx)]))
(define-syntax delay/pure/stateful (define-syntax delay/pure/stateful
(syntax-parser (syntax-parser