projects
/
lambda.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d6ed03a
)
fix another typo on ski_evaluator
author
Jim
<jim.pryor@nyu.edu>
Wed, 25 Mar 2015 10:01:17 +0000
(06:01 -0400)
committer
Jim
<jim.pryor@nyu.edu>
Wed, 25 Mar 2015 10:01:17 +0000
(06:01 -0400)
code/ski_evaluator.ml
patch
|
blob
|
history
diff --git
a/code/ski_evaluator.ml
b/code/ski_evaluator.ml
index
b339632
..
727a84a
100644
(file)
--- a/
code/ski_evaluator.ml
+++ b/
code/ski_evaluator.ml
@@
-53,7
+53,7
@@
let rec reduce_try3 (t:term):term = match t with
| K -> K
| S -> S
| App(a, b) ->
| K -> K
| S -> S
| App(a, b) ->
- let t' = App(reduce_try4 a, reduce_try b) in
+ let t' = App(reduce_try4 a, reduce_try
4
b) in
(match reduce_if_redex t' with
| ReducedTo t'' -> reduce_try4 t''
| AlreadyReduced -> t')
(match reduce_if_redex t' with
| ReducedTo t'' -> reduce_try4 t''
| AlreadyReduced -> t')