diff options
author | Andy Wingo <wingo@pobox.com> | 2010-06-18 11:15:09 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-18 11:15:18 +0200 |
commit | 40f17f1e0a446ada1571c96b9637443f0ea26fec (patch) | |
tree | 4dcefb539139dd716d74598a701c2b7316463165 /module/ice-9/deprecated.scm | |
parent | a572fc95f9c1d98574a7d5f70e5833e25c9d6c49 (diff) | |
download | guile-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.scm | 23 |
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)) |