diff --git a/pkgs/racket-test/tests/syntax/tests/transformer.rkt b/pkgs/racket-test/tests/syntax/tests/transformer.rkt new file mode 100644 index 0000000000..e957b49276 --- /dev/null +++ b/pkgs/racket-test/tests/syntax/tests/transformer.rkt @@ -0,0 +1,13 @@ +#lang racket/base + +(require rackunit + (for-syntax racket/base syntax/transformer)) + +(define the-box (box add1)) +(define-syntax op + (make-variable-like-transformer + #'(unbox the-box) + #'(lambda (v) (set-box! the-box v)))) +(check-equal? (op 5) 6) +(set! op 0) +(check-equal? op 0)