# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1520278424 18000
# Node ID 23a4ab452609ae8fbf140318d8e8ddeab33b4ff2
# Parent  7c7fc72df64c42bf9bdf705c92af9fa34a77542a
Remove logging

diff -r 7c7fc72df64c -r 23a4ab452609 src/looms/004-turtle-curves.lisp
--- 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)