Skip to content

Commit

Permalink
lift disappeareds on literals / form names
Browse files Browse the repository at this point in the history
  • Loading branch information
michaelballantyne committed Jul 1, 2024
1 parent 550afd3 commit 5381049
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions private/runtime/syntax-classes.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -3,13 +3,14 @@
(provide literal-in-space
~space-literal)

(require syntax/parse "../ee-lib/main.rkt"
(require syntax/parse "../ee-lib/main.rkt" (for-template "../ee-lib/lift-disappeareds.rkt")
(for-syntax racket/base syntax/parse))

(define-syntax-class (literal-in-space target-id binding-space)
(pattern id:id
#:when (same-binding? ((in-space binding-space) (attribute id))
((in-space binding-space) target-id))))
((in-space binding-space) target-id))
#:do [(lift-disappeared-uses! ((in-space binding-space) (attribute id)))]))

(define-syntax ~space-literal
(pattern-expander
Expand Down

0 comments on commit 5381049

Please sign in to comment.