# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1484912936 0
# Node ID e18d61e9aaa0e6c5bc7305bc53c03f0d5838b357
# Parent  dfe140066ff69533ad5cf6ac9e808d26679ae028
Minor tweaks

diff -r dfe140066ff6 -r e18d61e9aaa0 src/robots/git-commands.lisp
--- a/src/robots/git-commands.lisp	Fri Jan 20 00:04:30 2017 +0000
+++ b/src/robots/git-commands.lisp	Fri Jan 20 11:48:56 2017 +0000
@@ -169,7 +169,7 @@
   ("-" :. letter [noun shellify string-upcase]))
 
 (define-string long-option%
-  !(let ((noun $[noun shellify]))
+  !(let ((noun (shellify noun)))
      $("--" :. !noun :. "=<" :. !noun :. ">"))
   ("--" :. action-verb)
   ("--" :. extremum)
@@ -198,7 +198,7 @@
 
 (define-string (description :arguments (command commanding))
   (look-for location "for the" age noun "and" !command "it")
-  ("read" (eval (+ 2 (random 2000))) "bytes from" location "and" !command "them")
+  ("read" !(random-range 200 9999) "bytes from" location "and" !command "them")
   (!command "the" extremum noun "in" git-location)
   (!command [noun a] temporal-adverb refreshing git-location)
   (!command "and push all" adjective [noun s] "to" location)
diff -r dfe140066ff6 -r e18d61e9aaa0 src/robots/rpg-shopkeeper.lisp
--- a/src/robots/rpg-shopkeeper.lisp	Fri Jan 20 00:04:30 2017 +0000
+++ b/src/robots/rpg-shopkeeper.lisp	Fri Jan 20 11:48:56 2017 +0000
@@ -113,9 +113,8 @@
 
 (define-rule (textile :distribution :weighted)
   (1.00 !*cloth*)
-  (1.00 !*leather*)
   (0.80 !*silk*)
-  (0.01 !*spider-silk*))
+  (0.05 !*spider-silk*))
 
 (define-rule (wood :distribution (:zipf :exponent 0.8))
   !*pine*