From def85265a5113987b6c34afb22ae56a9a7d53d3e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Apr 2018 22:37:04 -0700
Subject: [PATCH] Deprecate with-values.

---
 src/runtime/global.scm  | 2 --
 src/runtime/runtime.pkg | 3 ++-
 2 files changed, 2 insertions(+), 3 deletions(-)

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