From e5bd747f72c55de405618d01078924ebc1ce3d3e Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 5 Dec 2012 12:58:24 -0500 Subject: [PATCH] Fix typo. Noticed by UWaterloo student. --- xlang/main.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xlang/main.rkt b/xlang/main.rkt index dd95f93..cea5fad 100644 --- 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)