Make the code a bit simpler now I'm a better macrologist

svn: r15148
2009-06-11 16:36:26 +00:00 · 2009-06-11 16:36:26 +00:00 · 41b969c205
commit 41b969c205
parent 7b5753163c
1 changed files with 2 additions and 6 deletions
--- 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 ...