From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:38 -0800
Subject: Import Upstream version 3a5

---
 dbinterp.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'dbinterp.scm')

diff --git a/dbinterp.scm b/dbinterp.scm
index 2bd4e20..3444fbb 100644
--- a/dbinterp.scm
+++ b/dbinterp.scm
@@ -17,12 +17,10 @@
 ;promotional, or sales literature without prior written consent in
 ;each case.
 
-(require 'rev4-optional-procedures)	; list-tail
-
 ;;; The procedures returned by MEMOIZE are not reentrant!
 (define (dbinterp:memoize proc k)
   (define recent (vector->list (make-vector k '(#f))))
-  (let ((tailr (list-tail recent (+ -1 k))))
+  (let ((tailr (last-pair recent)))
     (lambda args
       (define asp (assoc args recent))
       (if asp
@@ -35,8 +33,8 @@
 
 ;;@ This procedure works only for tables with a single primary key.
 (define (interpolate-from-table table column)
-  (define get  (dbinterp:memoize (table 'get column) 3))
-  (define prev (dbinterp:memoize (table 'isam-prev) 3))
+  (define get  (table 'get column))
+  (define prev (table 'isam-prev))
   (define next (table 'isam-next))
   (dbinterp:memoize
    (lambda (x)
-- 
cgit v1.2.3