# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1484260744 0
# Node ID 37d2a6b3aaf0f0c66e40982d07ca8c080f328a5f
# Parent  b42ffb104159bff5e1c8fa88a00b490b9e93ce3a
Remove failed ing attempt

diff -r b42ffb104159 -r 37d2a6b3aaf0 src/chancery.lisp
--- a/src/chancery.lisp	Thu Jan 12 22:37:47 2017 +0000
+++ b/src/chancery.lisp	Thu Jan 12 22:39:04 2017 +0000
@@ -182,13 +182,6 @@
     ((#\z #\h) (cat (chop string 1) "es"))
     (t (cat string "s"))))
 
-(defun ing (string)
-  "Add ing to `string`."
-  (assert-nonempty string "Cannot add ing to an empty string.")
-  (if (eql #\e (ch string -1))
-    (cat (chop string 1) "ing")
-    (cat string "ing")))
-
 (defun pos (string)
   "Make `string` posessive by adding an apostrophe (and possibly an s)."
   (assert-nonempty string "Cannot make an empty string posessive.")