use 'v' in the values non-terminal for cons pairs
This commit is contained in:
parent
04c8aa7722
commit
10de717cb4
|
@ -2,14 +2,8 @@
|
|||
< (define the-error "no error")
|
||||
---
|
||||
> (define the-error "the ((cons number) v) value has been omitted")
|
||||
6,7d5
|
||||
< racket/list
|
||||
< racket/contract
|
||||
8a7,8
|
||||
> racket/contract
|
||||
> racket/list
|
||||
32,33c32
|
||||
< (cons number)
|
||||
< ((cons number) v))
|
||||
< (cons v)
|
||||
< ((cons v) v))
|
||||
---
|
||||
> (cons number))
|
||||
> (cons v))
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
|
@ -3,9 +3,9 @@
|
|||
(define the-error "the ((cons number) v) value has been omitted")
|
||||
|
||||
(require redex/reduction-semantics
|
||||
racket/match
|
||||
racket/contract
|
||||
racket/list
|
||||
racket/contract
|
||||
racket/match
|
||||
"tut-subst.rkt")
|
||||
|
||||
(provide (all-defined-out))
|
||||
|
@ -29,7 +29,7 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number))
|
||||
(cons v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)))
|
||||
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
|
@ -29,8 +29,8 @@
|
|||
(v (λ (x τ) M)
|
||||
c
|
||||
number
|
||||
(cons number)
|
||||
((cons number) v))
|
||||
(cons v)
|
||||
((cons v) v))
|
||||
(E hole
|
||||
(E M)
|
||||
(v E)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user