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

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

(limited to 'priorque.scm')

diff --git a/priorque.scm b/priorque.scm
old mode 100644
new mode 100755
index 9f1591f..e5fea53
--- a/priorque.scm
+++ b/priorque.scm
@@ -93,7 +93,7 @@
 ;;Returns a binary heap suitable which can be used for priority queue
 ;;operations.
 (define make-heap
-  (let ((cstr (record-constructor heap:rtd)))
+  (let ((cstr (record-constructor heap:rtd '(array size heap<?))))
     (lambda (pred<?)
       (cstr (make-vector 4) 0 pred<?))))
 
-- 
cgit v1.2.3