deprecate set-repl-prompt!

* module/ice-9/boot-9.scm:
* module/ice-9/deprecated.scm (set-repl-prompt!): Deprecate, but wrap
  the (system repl common) implementation instead of the scm-style-repl.

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index c1f857b..11de447 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2669,8 +2669,6 @@ module '(ice-9 q) '(make-q q-length))}."
 (define *unspecified* (if #f #f))
 (define (unspecified? v) (eq? v *unspecified*))
 
-(define (set-repl-prompt! v) (set! scm-repl-prompt v))
-
 (define (default-pre-unwind-handler key . args)
   ;; Narrow by two more frames: this one, and the throw handler.
   (save-stack 2)

diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index b734276..4748bce 100644 (file)
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -53,7 +53,8 @@
             collect
             assert-repl-silence
             assert-repl-print-unspecified
-            assert-repl-verbosity)
+            assert-repl-verbosity
+            set-repl-prompt!)
 
   #:replace (module-ref-submodule module-define-submodule!))
 
@@ -588,3 +589,9 @@ better yet, use the repl from `(system repl repl)'.")
   (issue-deprecation-warning
    "`assert-repl-verbosity' has moved to `(ice-9 scm-style-repl)'.")
   ((@ (ice-9 scm-style-repl) assert-repl-verbosity) v))
+
+(define (set-repl-prompt! v)
+  (issue-deprecation-warning
+   "`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from
+the `(system repl common)' module.")
+  ((@ (system repl common) repl-default-prompt-set!) v))