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 30cfb77f155ea24a5eb2c2cd919b5bfec3308369..3069a40479dfcd84e4a85891926368562259d456 100644 (file)
--- 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;