Fix dangling references.

diff --git a/src/runtime/framex.scm b/src/runtime/framex.scm
index 4a7025b47781e94de850dd8c58e5317603fda697..1bb6e2859a3d3d00b15ea98b9857ab7d6af598d1 100644 (file)
--- a/src/runtime/framex.scm
+++ b/src/runtime/framex.scm
@@ -136,9 +136,8 @@ USA.
 
 (define (method/force-snap-thunk frame)
   (let ((promise (stack-frame/ref frame 1)))
-    (values (%make-combination
-            (ucode-primitive force 1)
-            (list (make-evaluated-object promise)))
+    (values (make-combination (ucode-primitive force 1)
+                             (list (make-evaluated-object promise)))
            undefined-environment
            (cond ((promise-forced? promise) undefined-expression)
                  ((promise-non-expression? promise) unknown-expression)
@@ -147,7 +146,7 @@ USA.
                                           (promise-expression promise)))))))
 
 (define ((method/application-frame index) frame)
-  (values (%make-combination
+  (values (make-combination
           (make-evaluated-object (stack-frame/ref frame index))
           (stack-frame-list frame (1+ index)))
          undefined-environment
@@ -165,17 +164,17 @@ USA.
          undefined-expression))
 
 (define (method/compiler-lookup-apply-trap-restart frame)
-  (values (%make-combination (make-variable (stack-frame/ref frame 2))
-                            (stack-frame-list frame 6))
+  (values (make-combination (make-variable (stack-frame/ref frame 2))
+                           (stack-frame-list frame 6))
          (stack-frame/ref frame 3)
          undefined-expression))
 
 (define (method/compiler-error-restart frame)
   (let ((primitive (stack-frame/ref frame 2)))
     (if (primitive-procedure? primitive)
-       (values (%make-combination (make-variable 'apply)
-                                  (list primitive
-                                        unknown-expression))
+       (values (make-combination (make-variable 'apply)
+                                 (list primitive
+                                       unknown-expression))
                undefined-environment
                undefined-expression)
        (stack-frame/debugging-info/default frame))))

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 7159dab8619558ab73d1eb497d7a1939c3bd1593..0494eb7f71979f84792a3e961674bc45cad4580d 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3647,8 +3647,6 @@ USA.
          unassigned?-name
          unassigned??
          undefined-conditional-branch)
-  (export (runtime debugging-info)
-         %make-combination)
   (initialization (initialize-package!)))
 
 (define-package (runtime scode-data)