From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 May 2018 23:05:37 +0000 (-0700)
Subject: Don't expose internal structure of continuations.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~52
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2f0cd4788dcb8658417a31370a9a6fe4ae83cb2d;p=mit-scheme.git

Don't expose internal structure of continuations.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 9aa29e033..745096a52 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -916,7 +916,7 @@ USA.
 	  file-time->global-decoded-time
 	  file-time->local-decoded-time
 	  file-time->universal-time
-	  get-environment-variable
+	  get-environment-variable	;R7RS
 	  init-file-specifier->pathname
 	  os/exec-path
 	  os/executable-pathname-types
@@ -1563,14 +1563,15 @@ USA.
   (files "contin")
   (parent (runtime))
   (export ()
-	  (call/cc call-with-current-continuation)
-	  call-with-current-continuation
+	  (call/cc call-with-current-continuation) ;R7RS
+	  call-with-current-continuation ;R7RS
+	  continuation?
+	  within-continuation)
+  (export (runtime continuation-parser)
 	  continuation/block-thread-events?
 	  continuation/control-point
 	  continuation/dynamic-state
-	  continuation?
-	  make-continuation
-	  within-continuation)
+	  make-continuation)
   (export (runtime thread)
 	  %within-continuation))