From a69c9fb665459e2bfdbda1bf80741a0af31a7faf Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:06:40 -0800
Subject: New upstream version 3b5

---
 queue.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100644 => 100755 queue.scm

(limited to 'queue.scm')

diff --git a/queue.scm b/queue.scm
old mode 100644
new mode 100755
index 820894f..d9bb0e9
--- a/queue.scm
+++ b/queue.scm
@@ -22,7 +22,7 @@
 ;;@args
 ;;Returns a new, empty queue.
 (define make-queue
-  (let ((construct-queue (record-constructor queue:record-type)))
+  (let ((construct-queue (record-constructor queue:record-type '(first-pair last-pair))))
     (lambda ()
       (construct-queue '() '()))))
 
-- 
cgit v1.2.3