add page.tmpl link
[lambda.git] / assignment10.mdwn
index 8e5bf2d..ba4df37 100644 (file)
@@ -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)))))))
        -->