X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=assignment10.mdwn;h=ba4df372f42db83b4479c27249f32e8882a50ec0;hp=8e5bf2da11c1c5af46b6cfbcb81962865e65a95f;hb=f084723ab17e56d39e05a8a8da8d976e670dfd42;hpb=78c9730055042764247f961889f380cbe8ab5f42

diff --git a/assignment10.mdwn b/assignment10.mdwn
index 8e5bf2da..ba4df372 100644
--- a/assignment10.mdwn
+++ b/assignment10.mdwn
@@ -152,7 +152,7 @@ Of course, if you need help or want us to review your efforts, we'll be glad to
 		      ((eq? (car lst) before)
 		       (insert-co new before after (cdr lst) (lambda (new-lst lefts rights) (k (cons new (cons before new-lst)) (succ lefts) rights))))
 		      ((eq? (car lst) after)
-		       (insert-co new before after (cdr lst) (lambda (new-lst lefts rights) (k (cons (after (cons new new-lst))) lefts (succ rights)))))
+		       (insert-co new before after (cdr lst) (lambda (new-lst lefts rights) (k (cons after (cons new new-lst)) lefts (succ rights)))))
 		      (else
 		       (insert-co new before after (cdr lst) (lambda (new-lst lefts rights) (k (cons (car lst) new-lst) lefts rights)))))))
 	-->