Export scode-expression?.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 34eafb0120ea4db77930a6ae32abde84044d54f2..26f5d1b481aa1cf5587e0dceb53fc3e8c2ac9af5 100644 (file)
--- 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 591d432778e7727077808f121073c17a2a4c6272..3e1d34a0722fdc484bc3a825fa6a31e4f2fd46f8 100644 (file)
--- 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)))