From 41b969c2052f8f8d379407a3a0939010a91566ee Mon Sep 17 00:00:00 2001
From: Noel Welsh <noel@racket-lang.org>
Date: Thu, 11 Jun 2009 16:36:26 +0000
Subject: [PATCH] Make the code a bit simpler now I'm a better macrologist

svn: r15148
---
 collects/schemeunit/check.ss | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/collects/schemeunit/check.ss b/collects/schemeunit/check.ss
index fe38c48a61..fc6727f3d7 100644
--- a/collects/schemeunit/check.ss
+++ b/collects/schemeunit/check.ss
@@ -107,13 +107,9 @@
   (syntax-case stx ()
     ((define-check (name formal ...) expr ...)
      (with-syntax ([reported-name
-                    (symbol->string
-                     (syntax->datum (syntax name)))]
+                    (symbol->string (syntax->datum (syntax name)))]
                    [(actual ...)
-                    (datum->syntax
-                     stx
-                     (map gensym
-                          (syntax->datum (syntax (formal ...)))))]
+                    (generate-temporaries (syntax (formal ...)))]
                    [check-fn
                     (syntax
                      (lambda (formal ...