fix rvm ordered generation to not do test every time
This commit is contained in:
parent
ac1d7ea19e
commit
da158e6d95
|
@ -16,8 +16,7 @@
|
|||
> ;; bug 14
|
||||
> [(closure-intact? (box-nc ṽ_1 ...) (imm ṽ_2 ...))
|
||||
> (closure-intact? (ṽ_1 ...) (ṽ_2 ...))]
|
||||
475a481,489
|
||||
>
|
||||
480a486,493
|
||||
> (define small-counter-example
|
||||
> '(let-one 'x
|
||||
> (application (proc-const (val val) (loc 0))
|
||||
|
|
|
@ -13,8 +13,7 @@
|
|||
< `(case-lam ,@(map (curry recur depth #f) ls))]
|
||||
---
|
||||
> `(case-lam ,@(map (curry recur depth #t) ls))]
|
||||
475a478,485
|
||||
>
|
||||
480a483,490
|
||||
> (define small-counter-example
|
||||
> '(let-one 42
|
||||
> (boxenv 0
|
||||
|
@ -22,3 +21,4 @@
|
|||
> (loc-box 1)))))
|
||||
>
|
||||
> (test-equal (check small-counter-example) #f)
|
||||
>
|
||||
|
|
|
@ -3,8 +3,7 @@
|
|||
---
|
||||
> ;; bug 2
|
||||
> #;(side-condition (< (term n_0) (term n_h)))]
|
||||
475a477,487
|
||||
>
|
||||
480a482,492
|
||||
> (define small-counter-example
|
||||
> '(proc-const (val)
|
||||
> (branch (loc 0)
|
||||
|
@ -15,4 +14,4 @@
|
|||
> void)))
|
||||
>
|
||||
> (test-equal (check small-counter-example) #f)
|
||||
\ No newline at end of file
|
||||
>
|
||||
|
|
|
@ -14,8 +14,7 @@
|
|||
< (where (s_1 γ_1 η_1) (verify* (e_0 e_1 ...) (abs-push n not s) n_l* #f γ η))
|
||||
---
|
||||
> (where (s_1 γ_1 η_1) (verify* (e_0 e_1 ...) (abs-push n uninit s) n_l* #f γ η))
|
||||
475a476,484
|
||||
>
|
||||
480a481,488
|
||||
> (define small-counter-example
|
||||
> '(application
|
||||
> (proc-const (val val) (branch (loc-noclr 0) 'a 'b))
|
||||
|
|
|
@ -7,12 +7,9 @@
|
|||
---
|
||||
> ;; bug 4
|
||||
> #;(side-condition (< (term n_p) (term n_l)))]
|
||||
475a477,484
|
||||
>
|
||||
480a482,486
|
||||
> (define small-counter-example
|
||||
> '(let-one 'x
|
||||
> (branch #f (boxenv 0 'y) (loc-box 0))))
|
||||
>
|
||||
> (test-equal (check small-counter-example) #f)
|
||||
>
|
||||
>
|
||||
|
|
|
@ -7,8 +7,7 @@
|
|||
---
|
||||
> ;;bug 5
|
||||
> ;;(side-condition (<= (term n) (term n_l)))
|
||||
475a477,486
|
||||
>
|
||||
480a482,489
|
||||
> (define small-counter-example
|
||||
> '(let-void 1
|
||||
> (branch #f
|
||||
|
@ -17,4 +16,3 @@
|
|||
>
|
||||
> (test-equal (check small-counter-example) #f)
|
||||
>
|
||||
>
|
||||
|
|
|
@ -3,12 +3,11 @@
|
|||
---
|
||||
> ;; bug 6
|
||||
> #;(side-condition (term (AND (lam-verified? l s ?) ...)))]
|
||||
475a477,483
|
||||
>
|
||||
480a482,488
|
||||
> (define small-counter-example
|
||||
> '(application
|
||||
> (case-lam (lam (val) () (loc-noclr 34)))
|
||||
> 'x))
|
||||
>
|
||||
> (test-equal (check small-counter-example) #f)
|
||||
\ No newline at end of file
|
||||
>
|
||||
|
|
|
@ -478,6 +478,10 @@
|
|||
|
||||
(define (ordered-enum-generator)
|
||||
(let ([index 0])
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define small-counter-example
|
||||
'(let-one 'x
|
||||
|
@ -487,9 +491,4 @@
|
|||
|
||||
(test-equal (check small-counter-example) #f)
|
||||
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed '())
|
||||
|
|
|
@ -475,6 +475,10 @@
|
|||
|
||||
(define (ordered-enum-generator)
|
||||
(let ([index 0])
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define small-counter-example
|
||||
'(let-one 42
|
||||
|
@ -483,9 +487,5 @@
|
|||
(loc-box 1)))))
|
||||
|
||||
(test-equal (check small-counter-example) #f)
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed '())
|
||||
|
|
|
@ -474,6 +474,10 @@
|
|||
|
||||
(define (ordered-enum-generator)
|
||||
(let ([index 0])
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define small-counter-example
|
||||
'(proc-const (val)
|
||||
|
@ -485,9 +489,5 @@
|
|||
void)))
|
||||
|
||||
(test-equal (check small-counter-example) #f)
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed '())
|
||||
|
|
|
@ -473,6 +473,10 @@
|
|||
|
||||
(define (ordered-enum-generator)
|
||||
(let ([index 0])
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define small-counter-example
|
||||
'(application
|
||||
|
@ -482,9 +486,4 @@
|
|||
|
||||
(test-equal (check small-counter-example) #f)
|
||||
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed '())
|
||||
|
|
|
@ -474,17 +474,14 @@
|
|||
|
||||
(define (ordered-enum-generator)
|
||||
(let ([index 0])
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define small-counter-example
|
||||
'(let-one 'x
|
||||
(branch #f (boxenv 0 'y) (loc-box 0))))
|
||||
|
||||
(test-equal (check small-counter-example) #f)
|
||||
|
||||
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed '())
|
||||
|
|
|
@ -474,6 +474,10 @@
|
|||
|
||||
(define (ordered-enum-generator)
|
||||
(let ([index 0])
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define small-counter-example
|
||||
'(let-void 1
|
||||
|
@ -483,10 +487,4 @@
|
|||
|
||||
(test-equal (check small-counter-example) #f)
|
||||
|
||||
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed '())
|
||||
|
|
|
@ -474,6 +474,10 @@
|
|||
|
||||
(define (ordered-enum-generator)
|
||||
(let ([index 0])
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define small-counter-example
|
||||
'(application
|
||||
|
@ -481,9 +485,5 @@
|
|||
'x))
|
||||
|
||||
(test-equal (check small-counter-example) #f)
|
||||
(λ ()
|
||||
(begin0
|
||||
(fix (generate-term bytecode e #:i-th index))
|
||||
(set! index (add1 index))))))
|
||||
|
||||
(define fixed '())
|
||||
|
|
Loading…
Reference in New Issue
Block a user