Bugfix: sethash doesn't return stored value.

sethash mistakenly returns a boolean which indicates that the
value was newly added, rather than the documented behavior of
returning the new value.

* hash.c (sethash): return value rather than new_p.

* share/txr/stdlib/place.tl (defplace): The defplace form
now seturn the main symbol of the place being defined,
rather than returning whatever the last sethash call
returns.
(define-place-macro): Likewise.
(sys:register-simple-accessor): Likewise, so that defaccessor
returns the getter function's name.

1 files changed, 1 insertions, 1 deletions

diff --git a/hash.c b/hash.c
index e844d5f3..5c10364a 100644
--- a/hash.c
+++ b/hash.c
@@ -626,7 +626,7 @@ val sethash(val hash, val key, val value)
 {
   val new_p;
   rplacd(gethash_c(hash, key, mkcloc(new_p)), value);
-  return new_p;
+  return value;
 }
 
 val pushhash(val hash, val key, val value)