~ chicken-core (chicken-5) 93a4d2e0c50757ab080178275867f634e2634615

commit 93a4d2e0c50757ab080178275867f634e2634615
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Wed Nov 28 21:50:18 2018 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Nov 29 11:38:33 2018 +0100

    Do not float-unbox arguments to srfi-4 vector accessors
    
    The arguments aren't flonums, only the return value is!
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/lfa2.scm b/lfa2.scm
index dffaee6f..1fba207c 100644
--- a/lfa2.scm
+++ b/lfa2.scm
@@ -563,7 +563,10 @@
 		      (set! count (add1 count))
 		      (let ((n (make-node '##core#inline
 					  (list ub)
-					  (map walk/unbox subs))))
+					  (map (if (eq? type 'acc)
+						   walk
+						   walk/unbox)
+					       subs))))
 			(case type
 			  ((pred) n)
 			  (else (make-node '##core#box_float '()