From 5a49e3034c6c387d5cbe2e549d1afa22b5a896a6 Mon Sep 17 00:00:00 2001 From: Aria Shrimpton Date: Wed, 7 Feb 2024 20:19:47 +0000 Subject: deal with more variables in racket specs --- src/racket_specs/indexable-setup.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/racket_specs/indexable-setup.rkt') diff --git a/src/racket_specs/indexable-setup.rkt b/src/racket_specs/indexable-setup.rkt index ddd6239..913544f 100644 --- a/src/racket_specs/indexable-setup.rkt +++ b/src/racket_specs/indexable-setup.rkt @@ -17,7 +17,7 @@ (assert (prop (car (spec xs n))))) -(define (check prop pres specs xs n) +(define (check prop pres specs xs n . rest) (cond [(or (unsat? (solve (check-not-contradict prop (first pres) xs))) (unsat? (solve (check-not-contradict prop (second pres) xs))) @@ -28,4 +28,4 @@ (unsat? (verify (check-spec-nth prop (third pres) (third specs) xs n))) )])) -(provide check) \ No newline at end of file +(provide check) -- cgit v1.2.3