From 92d61358600768ef31276f8b7cb84aa52358a1ba Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sat, 22 Aug 2015 23:10:28 -0700
Subject: [PATCH] make compatible with newfangled macrofier

---
 hyphenate/hyphenate/tests.rkt | 36 +++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/hyphenate/hyphenate/tests.rkt b/hyphenate/hyphenate/tests.rkt
index b7e755a1..752b18ed 100644
--- a/hyphenate/hyphenate/tests.rkt
+++ b/hyphenate/hyphenate/tests.rkt
@@ -4,32 +4,32 @@
 (define-syntax (eval-as-untyped stx)
   (syntax-case stx ()
     [(_ exprs ...)
-     (with-syntax ([sym (generate-temporary)]) 
-       #'(begin
-           (module sym typed/racket/base/no-check
-             (require rackunit "main.rkt" txexpr)
-             exprs ...)
-           (require 'sym)))]))
+     (with-syntax ([sym (syntax-e (generate-temporary))]) 
+       (datum->syntax stx `(begin
+                             (module ,(syntax->datum #'sym) typed/racket/base/no-check
+                               (require rackunit "main.rkt" txexpr)
+                               ,@(syntax->datum #'(exprs ...)))
+                             (require ',(syntax->datum #'sym))) stx))]))
 
 (define-syntax (eval-as-untyped-safe stx)
   (syntax-case stx ()
     [(_ exprs ...)
-     (with-syntax ([sym (generate-temporary)]) 
-       #'(begin
-           (module sym typed/racket/base/no-check
-             (require rackunit (submod "main.rkt" safe) txexpr)
-             exprs ...)
-           (require 'sym)))]))
+     (with-syntax ([sym (syntax-e (generate-temporary))]) 
+       (datum->syntax stx `(begin
+                             (module ,(syntax->datum #'sym) typed/racket/base/no-check
+                               (require rackunit (submod "main.rkt" safe) txexpr)
+                               ,@(syntax->datum #'(exprs ...)))
+                             (require ',(syntax->datum #'sym))) stx))]))
 
 (define-syntax (eval-as-typed stx)
   (syntax-case stx ()
     [(_ exprs ...)
-     (with-syntax ([sym (generate-temporary)]) 
-       #'(begin
-           (module sym typed/racket
-             (require typed/rackunit "../typed/hyphenate/main.rkt" typed/txexpr)
-             exprs ...)
-           (require 'sym)))]))
+     (with-syntax ([sym (syntax-e (generate-temporary))]) 
+       (datum->syntax stx `(begin
+                             (module ,(syntax->datum #'sym) typed/racket
+                               (require typed/rackunit "../typed/hyphenate/main.rkt" typed/txexpr)
+                               ,@(syntax->datum #'(exprs ...)))
+                             (require ',(syntax->datum #'sym))) stx))]))
 
 (define-syntax-rule (eval-as-typed-and-untyped exprs ...)
   (begin