use 'v' in the values non-terminal for cons pairs

This commit is contained in:
Burke Fetscher 2014-02-17 11:59:17 -06:00
parent 04c8aa7722
commit 10de717cb4
11 changed files with 24 additions and 30 deletions

View File

@ -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))

View File

@ -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)))

View File

@ -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)))

View File

@ -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)))

View File

@ -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)))

View File

@ -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)))

View File

@ -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)))

View File

@ -29,8 +29,8 @@
(v (λ (x τ) M)
c
number
(cons number)
((cons number) v))
(cons v)
((cons v) v))
(E hole
(E M)))

View File

@ -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)))

View File

@ -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)))

View File

@ -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)))