suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix indent

Browse Source
This commit is contained in:
Jay McCarthy 2014-03-19 15:39:24 -06:00
parent 0d8ecdf816
commit a1eeafaf38
11 changed files with 2 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/1.diff
View File

@ -6,7 +6,3 @@
< [(typeof Γ M (σ → σ_2))
---
> [(typeof Γ M (σ_2 → σ_2))
261c261
< M]
---
> M]

2
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/2.diff
View File

@ -5,7 +5,7 @@
48d47
< (([cons @ τ] v) v)
261,262c260
< M]
< M]
< [#f #f]))
---
> M]))

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/3.diff
View File

@ -6,7 +6,3 @@
< [(typeof Γ M (σ → σ_2))
---
> [(typeof Γ M (σ_2 → σ))
261c261
< M]
---
> M]

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/4.diff
View File

@ -6,7 +6,3 @@
< (∀ a (a → ((list a) → (list a))))]
---
> (∀ a (a → ((list a) → a)))]
261c261
< M]
---
> M]

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/5.diff
View File

@ -6,7 +6,3 @@
< (in-hole E v_2)
---
> (in-hole E v_1)
261c261
< M]
---
> M]

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/6.diff
View File

@ -6,7 +6,3 @@
< (--> (in-hole E ((hd @ τ) (((cons @ τ) v_1) v_2)))
---
> (--> (in-hole E ((hd @ τ) ((cons @ τ) v_1)))
261c261
< M]
---
> M]

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/7.diff
View File

@ -7,7 +7,3 @@
< (v E)))
---
> (E M)))
261c260
< M]
---
> M]

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/8.diff
View File

@ -6,7 +6,3 @@
< σ]
---
> int]
261c261
< M]
---
> M]

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/9.diff
View File

@ -6,7 +6,3 @@
< [(lookup (x σ Γ) x)
---
> [(lookup (x σ Γ) x_2)
261c261
< M]
---
> M]

1
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/poly-stlc-1.rkt
View File

@ -291,4 +291,3 @@
(begin0
(generate-term poly-stlc M #:i-th index)
(set! index (add1 index))))))

2
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/poly-stlc/poly-stlc-base.rkt
View File

@ -258,7 +258,7 @@
(generate-term poly-stlc #:satisfying
(typeof • ((((map @ τ_1) @ τ_2) v) (((cons @ τ_1) v_1) v_2)) τ) 5)])
[`(typeof • ,M ,τ)
M]
M]
[#f #f]))
(define (typed-generator)
(let ([g (redex-generator poly-stlc (typeof • M τ) 5)])