From 5b64b3b042ad2b76e8efba3fd1fb16f44b3df51f Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Thu, 5 May 2016 14:06:10 -0400 Subject: [PATCH] lift out version consts for checking preserved prop --- tapl/stx-utils.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tapl/stx-utils.rkt b/tapl/stx-utils.rkt index 2f40a9d..fac72f3 100644 --- a/tapl/stx-utils.rkt +++ b/tapl/stx-utils.rkt @@ -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)))