From: nhmall <mjnh@persona.ca>
Date: Thu, 12 Mar 2015 03:04:02 +0000 (-0400)
Subject: charge for a boulder that fills a pit in shop
X-Git-Tag: NetHack-3.6.0_RC01~610
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=a46ad54b1dff32e3b789d7a4cdeefc9b5d790bd0;p=nethack

charge for a boulder that fills a pit in shop

 Changes to be committed:
	modified:   src/do.c

From the email sent by ais523 earlier:
> You aren't charged for digging a pit below an unpaid boulder
> (causing the boulder to fill the pit).
---

diff --git a/src/do.c b/src/do.c
index 30cfb77f1..3069a4047 100644
--- a/src/do.c
+++ b/src/do.c
@@ -179,7 +179,7 @@ const char *verb;
 			}
 		}
 		deltrap(t);
-		obfree(obj, (struct obj *)0);
+		useupf(obj, 1L);
 		bury_objs(x, y);
 		newsym(x,y);
 		return TRUE;