Deprecate with-values.

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index a9e5b09c683f54026bae064ea6453eac5f4db0eb..5975e66de325ad515ba37a65b535ed8b09ed00ef 100644 (file)
--- 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 c32650604434e501ab464e1d8d7e04cc13eda461..e0b33bd4bfe54d2bafcd825ed7bec15c3dbfcff8 100644 (file)
--- 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)