ass10 tweaks

Signed-off-by: Jim Pryor <profjim@jimpryor.net>

diff --git a/assignment10.mdwn b/assignment10.mdwn
index 8e5bf2d..ba4df37 100644 (file)
--- 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)))))))
        -->