diff options
author | Andy Wingo <wingo@pobox.com> | 2010-06-18 11:33:16 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-18 11:33:16 +0200 |
commit | 4f99a499197b592a9a3060de2205531852f4f94d (patch) | |
tree | 3ac731a2a6ebe93b6ed70adce1d9520875a78ffb | |
parent | 91037860bd5ce630fb23f7fdb6427676e0f2f13a (diff) | |
download | guile-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.scm | 2 | ||||
-rw-r--r-- | module/ice-9/deprecated.scm | 9 |
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)) |