From d454cf16d21ecaa9b91d9625ad9cce6ff021cb33 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Apr 2018 21:47:59 -0700
Subject: [PATCH] Export scode-expression?.

---
 src/runtime/runtime.pkg | 1 +
 src/runtime/scode.scm   | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 34eafb012..26f5d1b48 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3975,6 +3975,7 @@ USA.
 	  scode-disjunction-alternative
 	  scode-disjunction-predicate
 	  scode-disjunction?
+	  scode-expression?
 	  scode-lambda-name:fluid-let
 	  scode-lambda-name:internal-lambda
 	  scode-lambda-name:let
diff --git a/src/runtime/scode.scm b/src/runtime/scode.scm
index 591d43277..3e1d34a07 100644
--- a/src/runtime/scode.scm
+++ b/src/runtime/scode.scm
@@ -35,6 +35,7 @@ USA.
   (or (vector-ref scode-type-vector (object-type object))
       (and (compiled-code-address? object)
 	   (eq? 'compiled-expression (compiled-entry-type object)))))
+(register-predicate! scode-expression? 'scode-expression)
 
 (define-deferred scode-type-vector
   (let ((type-vector (make-vector (microcode-type/code-limit) #f)))
-- 
2.25.1