mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Update old-style REPL code for deprecation

Browse source 
* module/ice-9/scm-style-repl.scm:
* module/ice-9/save-stack.scm: As the deprecated bindings have been
  removed from the default environment, use #:export instead of
  #:replace.
This commit is contained in:
Andy Wingo 2014-04-02 12:08:48 +02:00
parent a7324faf1b
commit 2896942751
2 changed files with 15 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/ice-9/save-stack.scm
View file

@ -1,6 +1,6 @@
;;; -*- mode: scheme; coding: utf-8; -*-
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2014
;;;; Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
@ -31,9 +31,9 @@
(define-module (ice-9 save-stack)
;; Replace deprecated root-module bindings, if present.
#:replace (stack-saved?
the-last-stack
save-stack))
#:export (stack-saved?
the-last-stack
save-stack))
;; FIXME: stack-saved? is broken in the presence of threads.
(define stack-saved? #f)

24
module/ice-9/scm-style-repl.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2014
;;;; Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
@ -22,19 +22,17 @@
#:export (scm-repl-silent
scm-repl-print-unspecified
scm-repl-verbose
scm-repl-prompt)
;; #:replace, as with deprecated code enabled these will be in the root env
#:replace (assert-repl-silence
assert-repl-print-unspecified
assert-repl-verbosity
scm-repl-prompt
assert-repl-silence
assert-repl-print-unspecified
assert-repl-verbosity
default-pre-unwind-handler
bad-throw
error-catching-loop
error-catching-repl
scm-style-repl
handle-system-error))
default-pre-unwind-handler
bad-throw
error-catching-loop
error-catching-repl
scm-style-repl
handle-system-error))
(define scm-repl-silent #f)
(define (assert-repl-silence v) (set! scm-repl-silent v))