mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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

4
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,7 +31,7 @@
(define-module (ice-9 save-stack)
;; Replace deprecated root-module bindings, if present.
#:replace (stack-saved?
#:export (stack-saved?
the-last-stack
save-stack))

8
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,10 +22,8 @@
#: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
scm-repl-prompt
assert-repl-silence
assert-repl-print-unspecified
assert-repl-verbosity