From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Apr 2018 04:47:59 +0000 (-0700)
Subject: Export scode-expression?.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~104
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d454cf16d21ecaa9b91d9625ad9cce6ff021cb33;p=mit-scheme.git

Export scode-expression?.
---

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)))