guile-srfi-123

commit 660c02118dafd8fc2cace581623e2c2f0583892d
parent aba35919ac62c79658ba7343ed9f62bc594cafdc
Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
Date:   Fri, 14 Aug 2015 17:48:37 +0200

Use our set! in the library itself already.

Diffstat:
M
generic-ref-set.body.scm
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/generic-ref-set.body.scm b/generic-ref-set.body.scm
@@ -112,7 +112,7 @@
          (let ((getter (or (ref getters field #f)
                            (error "No such field of record." record field))))
            (getter record field)))
-       (hashtable-set! getter-table <pred> getter)))))
+       (set! getter-table <pred> getter)))))
 
 (define-syntax register-record-setter
   (syntax-rules ()
@@ -132,6 +132,6 @@
                            (error "No such assignable field of record."
                                   record field))))
            (setter record value)))
-       (hashtable-set! setter-table <pred> setter)))))
+       (set! setter-table <pred> setter)))))
 
 ;;; generic-ref-set.body.scm ends here