# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1485602024 0
# Node ID f274e64d5807afff0922a73c701aa7705f97ece3
# Parent  312848bc8c7a5148b2738841221bc55a1f66b948
Fuckin arrows

diff -r 312848bc8c7a -r f274e64d5807 src/robots/rpg-shopkeeper.lisp
--- a/src/robots/rpg-shopkeeper.lisp	Tue Jan 24 19:11:54 2017 +0000
+++ b/src/robots/rpg-shopkeeper.lisp	Sat Jan 28 11:13:44 2017 +0000
@@ -320,8 +320,8 @@
 
 (defun armor-value (armor)
   (with-armor (armor)
-    (* (+ (* (-> piece piece-base-value)
-             (-> material material-multiplier))
+    (* (+ (* (-<> piece piece-base-value)
+             (-<> material material-multiplier))
           (if enchantment 100 0)
           (if ornament 10 0))
        (enchantment-multiplier enchantment)
@@ -330,8 +330,8 @@
 
 (defun vanilla-armor-description (vanilla-armor)
   (format nil "~A ~A"
-          (-> vanilla-armor armor-material material-name)
-          (-> vanilla-armor armor-piece piece-name)))
+          (-<> vanilla-armor armor-material material-name)
+          (-<> vanilla-armor armor-piece piece-name)))
 
 
 (defun armor-description (armor)
@@ -425,8 +425,8 @@
 
 (defun weapon-value (weapon)
   (with-weapon (weapon)
-    (* (+ (* (-> piece piece-base-value)
-             (-> material material-multiplier))
+    (* (+ (* (-<> piece piece-base-value)
+             (-<> material material-multiplier))
           (if enchantment 100 0)
           (if ornament 10 0))
        (enchantment-multiplier enchantment)
@@ -436,8 +436,8 @@
 (defun vanilla-weapon-description (vanilla-weapon)
   (with-weapon (vanilla-weapon)
     (format nil "~A ~A"
-            (-> material material-name)
-            (-> piece piece-name))))
+            (-<> material material-name)
+            (-<> piece piece-name))))
 
 (defun weapon-description (weapon)
   (let ((vanilla-description (vanilla-weapon-description weapon))