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

Compatibility with Racket 7

Browse Source
This commit is contained in:
Georges Dupéron 2018-03-26 21:12:33 +02:00
parent 84e2fd98d7
commit 1653e46139
2 changed files with 30 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
info.rkt
View File

@ -8,7 +8,8 @@
"stxparse-info"
"alexis-util"
"scope-operations"
"auto-syntax-e"))
"auto-syntax-e"
"version-case"))
(define build-deps '("scribble-lib"
"racket-doc"
"scribble-math"))

38
test/assumption-weak-hash.rkt
View File

@ -5,7 +5,8 @@
;; memory leaks.
(require (for-syntax racket/private/sc)
rackunit)
rackunit
version-case)
(define h (make-weak-hasheq))
@ -31,8 +32,13 @@
(collect-garbage)
(hh)))))))
;; but not if the syntax object is a constant, e.g. #'(1 2 3)
(check-pred all-eq?
;; but not if the syntax object is a constant, e.g. #'(1 2 3), in Racket < 6.7
;; I'm not sure how this affects subtemplate in Racket ≥ 6.7, but I suppose it
;; is not a problem, as the beahviour is the same as in the general case where
;; the syntax object is not constant.
(check-pred (version-case
[(version< (version) "6.90") all-eq?]
[else (negate all-eq?)])
(for/list ([range-a (in-range 5)])
(with-syntax ([(xᵢ ...) #'(1 2 3)]) ;; CHANGED THIS LINE
(define-syntax (hh stx)
@ -46,9 +52,14 @@
(collect-garbage)
(hh))))))
;; nor it the same syntax object is reuqes
;; nor it the same syntax object is reused, in Racket < 6.7
;; I'm not sure how this affects subtemplate in Racket ≥ 6.7, but I suppose it
;; is not a problem, as the beahviour is the same as in the general case where
;; the syntax object is not shared.
(define stxobj (datum->syntax #'here '(1 2 3))) ;; cached stxobj here
(check-pred all-eq?
(check-pred (version-case
[(version< (version) "6.90") all-eq?]
[else (negate all-eq?)])
(for/list ([range-a (in-range 5)])
(with-syntax ([(xᵢ ...) stxobj]) ;; CHANGED THIS LINE
(define-syntax (hh stx)
@ -70,6 +81,9 @@
;; (datum->syntax #'here '(1 2 3))
;; I expected the result to always be different at each execution of the
;; with-syntax, but it turns out the syntax object is kept as-is.
;;
;; With racket ≥ 6.7, the syntax object is different, i.e. not eq?, in every
;; invocation of with-syntax.
(begin
(let ()
(define old1 #f)
@ -81,11 +95,15 @@
(with-syntax ([(xᵢ ...) #'(1 2 3)])
(define-syntax (hh stx)
#`#,(syntax-mapping-valvar (syntax-local-value #'xᵢ)))
(unless old1
;; Initial set!
(set! old1 (hh)))
(andmap identity (for/list ([range-b (in-range 5)])
(eq? old1 hh))))))))
(if (not old1)
;; Initial set!
(set! old1 (hh))
(andmap identity (for/list ([range-b (in-range 5)])
((version-case
[(version< (version) "6.90") eq?]
[else (negate eq?)])
old1
(hh))))))))))
(let ()
(define old2 #f)