mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

deprecate `repl'

Browse source 
* module/ice-9/boot-9.scm:
* module/ice-9/deprecated.scm (repl): Deprecate.
This commit is contained in:
Andy Wingo 2010-06-18 12:30:45 +02:00
parent 9346b857af
commit a29e5b632e
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/ice-9/boot-9.scm
View file

@ -2674,13 +2674,6 @@ module '(ice-9 q) '(make-q q-length))}."
;;; {Running Repls} ;;; {Running Repls}
;;; ;;;
(define (repl read evaler print)
(let loop ((source (read (current-input-port))))
(print (evaler source))
(loop (read (current-input-port)))))
;; A provisional repl that acts like the SCM repl:
;;
(define (default-pre-unwind-handler key . args) (define (default-pre-unwind-handler key . args)
;; Narrow by two more frames: this one, and the throw handler. ;; Narrow by two more frames: this one, and the throw handler.
(save-stack 2) (save-stack 2)

10
module/ice-9/deprecated.scm
View file

@ -55,7 +55,8 @@
assert-repl-print-unspecified assert-repl-print-unspecified
assert-repl-verbosity assert-repl-verbosity
set-repl-prompt! set-repl-prompt!
set-batch-mode?!) set-batch-mode?!
repl)
#:replace (module-ref-submodule module-define-submodule!)) #:replace (module-ref-submodule module-define-submodule!))
@ -608,3 +609,10 @@ the `(system repl common)' module.")
"`set-batch-mode?!' with an argument of `#f' is deprecated. Use the "`set-batch-mode?!' with an argument of `#f' is deprecated. Use the
`*repl-level*' fluid instead.") `*repl-level*' fluid instead.")
#t))) #t)))
(define (repl read evaler print)
(issue-deprecation-warning
"`repl' is deprecated. Define it yourself.")
(let loop ((source (read (current-input-port))))
(print (evaler source))
(loop (read (current-input-port)))))