blob: cf80940c97eff00de1030729c802e900337fb01b (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- a/qdbm.scm
+++ b/qdbm.scm
@@ -72,7 +72,7 @@
(unless (slot-bound? self 'path)
(error "path must be set to open qdbm database"))
(when (qdbm-file-of self)
- (errorf "qdbm ~S already opened" qdbm))
+ (errorf "qdbm ~s already opened" (qdbm-file-of self)))
(let* ((path (slot-ref self 'path))
(rwmode (slot-ref self 'rw-mode))
(omode (case rwmode
|