23a4ab452609

--- a/src/looms/004-turtle-curves.lisp	Mon Mar 05 14:32:24 2018 -0500
+++ b/src/looms/004-turtle-curves.lisp	Mon Mar 05 14:33:44 2018 -0500
@@ -211,18 +211,14 @@
 
 
 (defun mutation-transpose (result)
-  (pr 'transposing result)
   (rotatef (elt result (rand (length result)))
            (elt result (rand (length result))))
-  (pr '----------> result)
   result)
 
 (defun mutation-insert (result)
-  (pr 'inserting result)
   (zapf result (insert (random-elt result #'rand)
                        %
                        (rand (length result))))
-  (pr '--------> result)
   result)
 
 (defun mutate-production (result)