summaryrefslogtreecommitdiff
path: root/module/ice-9/deprecated.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-18 11:15:09 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-18 11:15:18 +0200
commit40f17f1e0a446ada1571c96b9637443f0ea26fec (patch)
tree4dcefb539139dd716d74598a701c2b7316463165 /module/ice-9/deprecated.scm
parenta572fc95f9c1d98574a7d5f70e5833e25c9d6c49 (diff)
downloadguile-40f17f1e0a446ada1571c96b9637443f0ea26fec.tar.gz
assert-repl-* and associated state variables to scm-style-repl
* module/ice-9/boot-9.scm: * module/ice-9/scm-style-repl.scm (scm-repl-silent, assert-repl-silence) (scm-repl-print-unspecified, assert-repl-print-unspecified) (scm-repl-verbose, assert-repl-verbosity) (scm-repl-prompt): Move these definitions here from boot-9.scm. * module/ice-9/deprecated.scm (assert-repl-silence): (assert-repl-print-unspecified, assert-repl-verbosity): Deprecated wrappers for the functions. I'm not sure if the variables can be helped though.
Diffstat (limited to 'module/ice-9/deprecated.scm')
-rw-r--r--module/ice-9/deprecated.scm23
1 files changed, 22 insertions, 1 deletions
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index c672b68d7..b734276e7 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -50,7 +50,10 @@
for-next-option
display-usage-report
transform-usage-lambda
- collect)
+ collect
+ assert-repl-silence
+ assert-repl-print-unspecified
+ assert-repl-verbosity)
#:replace (module-ref-submodule module-define-submodule!))
@@ -567,3 +570,21 @@ better yet, use the repl from `(system repl repl)'.")
((_ x x* ...)
#'(let ((val x))
(cons val (collect x* ...)))))))
+
+
+
+
+(define (assert-repl-silence v)
+ (issue-deprecation-warning
+ "`assert-repl-silence' has moved to `(ice-9 scm-style-repl)'.")
+ ((@ (ice-9 scm-style-repl) assert-repl-silence) v))
+
+(define (assert-repl-print-unspecified v)
+ (issue-deprecation-warning
+ "`assert-repl-print-unspecified' has moved to `(ice-9 scm-style-repl)'.")
+ ((@ (ice-9 scm-style-repl) assert-repl-print-unspecified) v))
+
+(define (assert-repl-verbosity v)
+ (issue-deprecation-warning
+ "`assert-repl-verbosity' has moved to `(ice-9 scm-style-repl)'.")
+ ((@ (ice-9 scm-style-repl) assert-repl-verbosity) v))