diff options
Diffstat (limited to 'module/ice-9/deprecated.scm')
-rw-r--r-- | module/ice-9/deprecated.scm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm index 4748bce45..10c33f170 100644 --- a/module/ice-9/deprecated.scm +++ b/module/ice-9/deprecated.scm @@ -54,7 +54,8 @@ assert-repl-silence assert-repl-print-unspecified assert-repl-verbosity - set-repl-prompt!) + set-repl-prompt! + set-batch-mode?!) #:replace (module-ref-submodule module-define-submodule!)) @@ -595,3 +596,15 @@ better yet, use the repl from `(system repl repl)'.") "`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from the `(system repl common)' module.") ((@ (system repl common) repl-default-prompt-set!) v)) + +(define (set-batch-mode?! arg) + (cond + (arg + (issue-deprecation-warning + "`set-batch-mode?!' is deprecated. Use `ensure-batch-mode!' instead.") + (ensure-batch-mode!)) + (else + (issue-deprecation-warning + "`set-batch-mode?!' with an argument of `#f' is deprecated. Use the +`*repl-level*' fluid instead.") + #t))) |