Fix typo.

Noticed by UWaterloo student.
racket-templates · Dec 5, 2012 · e5bd747 · e5bd747
1 parent 0f99905
commit e5bd747
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/xlang/main.rkt b/xlang/main.rkt
@@ -12,7 +12,7 @@
 (define-syntax-rule (ti . e) (#%top-interaction . e))
 (define-simple-macro (q . (~or x:number x:id)) (quote x))
 (define ((K x) y) x)
-(define (((S x) y) z) ((x z) (x z)))
+(define (((S x) y) z) ((x z) (y z)))
 (define (X x) ((x S) K))
 (define (I x) x)