guile-srfi-123

commit de58af9bf2514f44a8ec5321bba6005208a92e90
parent 79f906037cede5bbc2b1d4adf27559663e890241
Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
Date:   Sat,  5 Sep 2015 11:36:31 +0200

Code only: minor cleanup.

Diffstat:
M
srfi/123.body.scm
 | 
8
++++++--

1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/srfi/123.body.scm b/srfi/123.body.scm
@@ -117,11 +117,15 @@
   (define srfi-4-setters-table (alist->hashtable srfi-4-setters))
   (define (bytevector-ref bytevector index)
     (let* ((type (find (lambda (pred) (pred bytevector))) srfi-4-types)
-           (getter (ref srfi-4-getters-table type bytevector-u8-ref)))
+           (getter (if type
+                       (ref srfi-4-getters-table type)
+                       bytevector-u8-ref)))
       (getter bytevector index)))
   (define (bytevector-set! bytevector index value)
     (let* ((type (find (lambda (pred) (pred bytevector))) srfi-4-types)
-           (setter (ref srfi-4-setters-table type bytevector-u8-set!)))
+           (setter (if type
+                       (ref srfi-4-setters-table type)
+                       bytevector-u8-set!)))
       (setter bytevector index value))))
  (else
   (define srfi-4-getters '())