From 73b166c65f5fcc57a2ddad2995a4a96d67e586a4 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 22 Aug 2017 18:58:36 -0400
Subject: [PATCH] Added inline functions

---
 scheme/read.sld | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/scheme/read.sld b/scheme/read.sld
index 903bc470..51cdba84 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -15,6 +15,10 @@
     read-all
     include
     include-ci)
+  (inline
+    Cyc-opaque-eq?
+    Cyc-opaque-unsafe-eq?
+    Cyc-opaque-unsafe-string?)
   (begin
 
 (define-syntax include
@@ -97,15 +101,23 @@
   "(void *data, int argc, closure _, object k, object opq, object obj)"
   " if (Cyc_is_opaque(opq) == boolean_f) 
       return_closcall1(data, k, boolean_f);
-    return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));")
+    return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));"
+  "(void *data, object ptr, object opq, object obj)"
+  " if (Cyc_is_opaque(opq) == boolean_f) 
+      return(boolean_f);
+    return(equalp( opaque_ptr(opq), obj ));")
 
 (define-c Cyc-opaque-unsafe-eq?
   "(void *data, int argc, closure _, object k, object opq, object obj)"
-  " return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));")
+  " return_closcall1(data, k, equalp( opaque_ptr(opq), obj ));"
+  "(void *data, object ptr, object opq, object obj)"
+  " return(equalp( opaque_ptr(opq), obj ));")
 
 (define-c Cyc-opaque-unsafe-string?
   "(void *data, int argc, closure _, object k, object opq)"
-  " return_closcall1(data, k, Cyc_is_string(opaque_ptr(opq)));")
+  " return_closcall1(data, k, Cyc_is_string(opaque_ptr(opq)));"
+  "(void *data, object ptr, object opq)"
+  " return(Cyc_is_string(opaque_ptr(opq)));")
 
 (define-c Cyc-opaque-unsafe-string->number
   "(void *data, int argc, closure _, object k, object opq)"