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

lift out version consts for checking preserved prop

Browse Source
This commit is contained in:
Stephen Chang 2016-05-05 14:06:10 -04:00
parent 9308677b2a
commit 5b64b3b042
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tapl/stx-utils.rkt
View File

@ -70,8 +70,11 @@
(define (generate-temporariesss stx)
(stx-map generate-temporariess stx))
(define REQUIRED-VERSION "6.5.0.4")
(define VERSION (version))
(define PRESERVED-STX-PROP-SUPPORTED? (version<=? REQUIRED-VERSION VERSION))
(define (set-stx-prop/preserved stx prop val)
(if (version<=? "6.5.0.4" (version))
(if PRESERVED-STX-PROP-SUPPORTED?
(syntax-property stx prop val #t)
(syntax-property stx prop val)))