summaryrefslogtreecommitdiff
path: root/module/rnrs/hashtables.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/rnrs/hashtables.scm')
-rw-r--r--module/rnrs/hashtables.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/module/rnrs/hashtables.scm b/module/rnrs/hashtables.scm
index 98d2d7616..5773eb1a8 100644
--- a/module/rnrs/hashtables.scm
+++ b/module/rnrs/hashtables.scm
@@ -122,8 +122,9 @@
(define (hashtable-set! hashtable key obj)
(if (r6rs:hashtable-mutable? hashtable)
- (hash-table-set! (r6rs:hashtable-wrapped-table hashtable) key obj))
- *unspecified*)
+ (hash-table-set! (r6rs:hashtable-wrapped-table hashtable) key obj)
+ (assertion-violation
+ 'hashtable-set! "Hashtable is immutable." hashtable)))
(define (hashtable-delete! hashtable key)
(if (r6rs:hashtable-mutable? hashtable)