diff options
Diffstat (limited to 'module/rnrs')
-rw-r--r-- | module/rnrs/hashtables.scm | 5 |
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) |