summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-18 11:33:16 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-18 11:33:16 +0200
commit4f99a499197b592a9a3060de2205531852f4f94d (patch)
tree3ac731a2a6ebe93b6ed70adce1d9520875a78ffb
parent91037860bd5ce630fb23f7fdb6427676e0f2f13a (diff)
downloadguile-4f99a499197b592a9a3060de2205531852f4f94d.tar.gz
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.
-rw-r--r--module/ice-9/boot-9.scm2
-rw-r--r--module/ice-9/deprecated.scm9
2 files changed, 8 insertions, 3 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index c1f857bc1..11de44737 100644
--- 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 b734276e7..4748bce45 100644
--- 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))