From f7fa7d3655ce7b8587beaa63e6f671ae5b06c597 Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Wed, 28 Nov 2018 21:50:18 +0100
Subject: [PATCH] Do not float-unbox arguments to srfi-4 vector accessors

The arguments aren't flonums, only the return value is!
---
 lfa2.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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 '()
-- 
2.11.0