Simplify validation report invocation

ktakashi · Nov 10, 2023 · edd685f · edd685f
1 parent e5d9932
commit edd685f
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/sitelib/text/json/schema/validators.scm b/sitelib/text/json/schema/validators.scm
@@ -75,11 +75,9 @@
     (define lint-mode? (*json-schema:lint-mode?*))
     (define ctx (make-validator-context lint-mode?))
     (let ((r (validator v ctx)))
-      (or (and lint-mode?
-	       (cond ((*json-schema:validator-error-reporter*) =>
-		      (lambda (reporter) (reporter ctx) r))
-		     (else r)))
-	  r))))
+      (cond ((*json-schema:validator-error-reporter*) =>
+	     (lambda (reporter) (reporter ctx))))
+      r)))
 
 (define (simple-json-schema-error-reporter ctx)
   (define out (or (*json-schema:report-port*) (current-error-port)))