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

---
 object.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)
 mode change 100644 => 100755 object.scm

(limited to 'object.scm')

diff --git a/object.scm b/object.scm
old mode 100644
new mode 100755
index 298baad..7edee52
--- a/object.scm
+++ b/object.scm
@@ -75,9 +75,7 @@
   (define generic-predicate
     (lambda (obj)
       (if (object? obj)
-	  (if ((vector-ref obj 1) generic-predicate)
-	      #t
-	      #f)
+	  (and ((vector-ref obj 1) generic-predicate) #t)
 	  #f)))
   generic-predicate)
 ;@
-- 
cgit v1.2.3