adjust commit 99ff0adbfd to

be more friendly to the test suites

collects/redex/private/judgment-form.rkt

@@ -21,7 +21,8 @@
              racket/syntax
              syntax/id-table
              racket/list
-             syntax/parse))
+             syntax/parse
+             syntax/stx))
 
 (require
  (for-template "term.rkt"))
@@ -720,9 +721,9 @@
 (define-syntax (judgment-holds stx)
   (syntax-case stx ()
     [(_  (jf-id . args))
-     #'(#%expression (judgment-holds/derivation judgment-holds #f (jf-id . args)))]
+     #`(#%expression (judgment-holds/derivation judgment-holds #f #,(stx-car (stx-cdr stx))))]
     [(_  (jf-id . args) trm)
-     #'(#%expression (judgment-holds/derivation judgment-holds #f (jf-id . args) trm))]))
+     #`(#%expression (judgment-holds/derivation judgment-holds #f #,(stx-car (stx-cdr stx)) trm))]))
 
 (define-syntax (build-derivations stx)
   (syntax-case stx ()

collects/redex/tests/syn-err-tests/judgment-holds.rktd

@@ -2,7 +2,7 @@
  ([not-judgment-form junk])
  (judgment-holds (not-judgment-form z (s z))))
 
-(#rx"a?: mode specifies a 1-ary relation but use supplied 2 terms"
+(#rx"a[?]: mode specifies a 1-ary relation but use supplied 2 terms"
  ([bad-judgment (a? a q)])
  ([name a?])
  (let ()

collects/redex/tests/test-util.rkt

@@ -60,7 +60,7 @@
 
 (define ((exec-error-tests setup exec) path)
   (for ([test (read-tests (build-path this-dir path))])
-       (exec-error-test test exec setup)))
+    (exec-error-test test exec setup)))
 (define exec-syntax-error-tests
   (exec-error-tests syntax-error-test-setup expand))
 (define exec-runtime-error-tests