commit be91cf2800f2cd71d5eb71b90774a5dbab506193 parent 54d664d8dc9547bc2af10e21da64a79b41d976ec Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> Date: Fri, 14 Aug 2015 10:07:36 +0200 Support lists via the pair? predicate. Diffstat:
| M | generic-ref-set.scm | | | 10 | ++++++---- |
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/generic-ref-set.scm b/generic-ref-set.scm @@ -82,15 +82,17 @@ (define getter-table (list (cons bytevector? bytevector-u8-ref) + (cons hashtable? hashtable-ref) + (cons pair? list-ref) (cons string? string-ref) - (cons vector? vector-ref) - (cons hashtable? hashtable-ref))) + (cons vector? vector-ref))) (define setter-table (list (cons bytevector? bytevector-u8-set!) + (cons hashtable? hashtable-set!) + (cons pair? list-set!) (cons string? string-set!) - (cons vector? vector-set!) - (cons hashtable? hashtable-set!))) + (cons vector? vector-set!))) (define sparse-types (list hashtable?))