File tree Expand file tree Collapse file tree 1 file changed +0
-15
lines changed
default-recommendations/analyzers Expand file tree Collapse file tree 1 file changed +0
-15
lines changed Original file line number Diff line number Diff line change 1818 syntax/parse)
1919
2020
21- (module+ test
22- (require (submod ".. " )
23- rackunit))
24-
25-
2621;@----------------------------------------------------------------------------------------------------
2722
2823
6257 (define labeled-stx (syntax-label-paths expanded-stx 'expansion-path ))
6358 (transduce (annotate-application-subexpressions labeled-stx)
6459 #:into into-syntax-property-bundle))))
65-
66-
67- (module+ test
68- (test-case "function-expression-analyzer "
69-
70- (test-case "empty module "
71- (define stx #'(module foo racket/base))
72- (define props (expansion-analyze function-expression-analyzer (expand stx)))
73- ;; Even empty modules have configure-runtime calls, so we check that we get some properties
74- (check-true (syntax-property-bundle? props)))))
You can’t perform that action at this time.
0 commit comments