# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1522894293 14400
# Node ID e9fe0b053e817b6f27e78e6c8f268a1f193f2180
# Parent  595e1605631747151cade67b2bf9bb7e4a641d53
Fix `values` threading shit

diff -r 595e16056317 -r e9fe0b053e81 src/looms/004-turtle-curves.lisp
--- a/src/looms/004-turtle-curves.lisp	Fri Mar 23 23:36:47 2018 -0400
+++ b/src/looms/004-turtle-curves.lisp	Wed Apr 04 22:11:33 2018 -0400
@@ -298,9 +298,7 @@
            (axiom (l-system-axiom l-system))
            (*angle* (l-system-recommended-angle l-system))))
     (multiple-value-bind (productions mutagen)
-        (-<> l-system
-          l-system-productions
-          maybe-mutate-productions))
+        (maybe-mutate-productions (l-system-productions l-system)))
     (flax.drawing:with-rendering
         (canvas filetype filename width height :background bg :padding 0.05))
     (progn