From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Apr 2018 05:37:04 +0000 (-0700)
Subject: Deprecate with-values.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~102
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=def85265a5113987b6c34afb22ae56a9a7d53d3e;p=mit-scheme.git

Deprecate with-values.
---

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index a9e5b09c6..5975e66de 100644
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -146,8 +146,6 @@ USA.
 (define (call-with-values thunk receiver)
   ((thunk) receiver))
 
-(define with-values call-with-values)
-
 (define (write-to-string object #!optional max)
   (if (or (default-object? max) (not max))
       (call-with-output-string
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index c32650604..e0b33bd4b 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -487,6 +487,8 @@ USA.
 (define-package (runtime miscellaneous-global)
   (files "global")
   (parent (runtime))
+  (export () deprecated:miscellaneous-global
+	  (with-values call-with-values))
   (export ()
 	  %exit
 	  %quit
@@ -601,7 +603,6 @@ USA.
 	  wait-interval
 	  with-history-disabled
 	  with-interrupt-mask
-	  with-values
 	  write-to-string)
   (export (runtime)
 	  strip-angle-brackets)