diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2011-02-22 00:32:00 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2011-02-22 00:37:26 +0100 |
| commit | da0c22b5d307752770eec9ad218f018d55d403d9 (patch) | |
| tree | ce060ec7cbb78a1d157983b2f28ca1f88666d86b /module/ice-9/vlist.scm | |
| parent | 1e1808c920fb0defe75850af26fae199e1090384 (diff) | |
| download | guile-da0c22b5d307752770eec9ad218f018d55d403d9.tar.gz | |
Fix a bug in `vhash-delete'.
* module/ice-9/vlist.scm (vhash-delete): Honor HASH.
* test-suite/tests/vlist.test ("vhash")["vhash-delete honors HASH"]: New test.
Diffstat (limited to 'module/ice-9/vlist.scm')
| -rw-r--r-- | module/ice-9/vlist.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/vlist.scm b/module/ice-9/vlist.scm index 6c88df86a..34c7c00c1 100644 --- a/module/ice-9/vlist.scm +++ b/module/ice-9/vlist.scm @@ -536,7 +536,7 @@ with @var{equal?}." (v (cdr k+v))) (if (equal? k key) result - (vhash-cons k v result)))) + (vhash-cons k v result hash)))) vlist-null vhash) vhash)) |