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" "stxparse-info"
"alexis-util" "alexis-util"
"scope-operations" "scope-operations"
"auto-syntax-e")) "auto-syntax-e"
"version-case"))
(define build-deps '("scribble-lib" (define build-deps '("scribble-lib"
"racket-doc" "racket-doc"
"scribble-math")) "scribble-math"))

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

@ -5,7 +5,8 @@
;; memory leaks. ;; memory leaks.
(require (for-syntax racket/private/sc) (require (for-syntax racket/private/sc)
rackunit) rackunit
version-case)
(define h (make-weak-hasheq)) (define h (make-weak-hasheq))
@ -31,8 +32,13 @@
(collect-garbage) (collect-garbage)
(hh))))))) (hh)))))))
;; but not if the syntax object is a constant, e.g. #'(1 2 3) ;; but not if the syntax object is a constant, e.g. #'(1 2 3), in Racket < 6.7
(check-pred all-eq? ;; 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)]) (for/list ([range-a (in-range 5)])
(with-syntax ([(xᵢ ...) #'(1 2 3)]) ;; CHANGED THIS LINE (with-syntax ([(xᵢ ...) #'(1 2 3)]) ;; CHANGED THIS LINE
(define-syntax (hh stx) (define-syntax (hh stx)
@ -46,9 +52,14 @@
(collect-garbage) (collect-garbage)
(hh)))))) (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 (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)]) (for/list ([range-a (in-range 5)])
(with-syntax ([(xᵢ ...) stxobj]) ;; CHANGED THIS LINE (with-syntax ([(xᵢ ...) stxobj]) ;; CHANGED THIS LINE
(define-syntax (hh stx) (define-syntax (hh stx)
@ -70,6 +81,9 @@
;; (datum->syntax #'here '(1 2 3)) ;; (datum->syntax #'here '(1 2 3))
;; I expected the result to always be different at each execution of the ;; 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-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 (begin
(let () (let ()
(define old1 #f) (define old1 #f)
@ -81,11 +95,15 @@
(with-syntax ([(xᵢ ...) #'(1 2 3)]) (with-syntax ([(xᵢ ...) #'(1 2 3)])
(define-syntax (hh stx) (define-syntax (hh stx)
#`#,(syntax-mapping-valvar (syntax-local-value #'xᵢ))) #`#,(syntax-mapping-valvar (syntax-local-value #'xᵢ)))
(unless old1 (if (not old1)
;; Initial set! ;; Initial set!
(set! old1 (hh))) (set! old1 (hh))
(andmap identity (for/list ([range-b (in-range 5)]) (andmap identity (for/list ([range-b (in-range 5)])
(eq? old1 hh)))))))) ((version-case
[(version< (version) "6.90") eq?]
[else (negate eq?)])
old1
(hh))))))))))
(let () (let ()
(define old2 #f) (define old2 #f)