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

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

@ -1,6 +1,6 @@
;;; -*- mode: scheme; coding: utf-8; -*- ;;; -*- 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. ;;;; Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -31,9 +31,9 @@
(define-module (ice-9 save-stack) (define-module (ice-9 save-stack)
;; Replace deprecated root-module bindings, if present. ;; Replace deprecated root-module bindings, if present.
#:replace (stack-saved? #:export (stack-saved?
the-last-stack the-last-stack
save-stack)) save-stack))
;; FIXME: stack-saved? is broken in the presence of threads. ;; FIXME: stack-saved? is broken in the presence of threads.
(define stack-saved? #f) (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. ;;;; Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -22,19 +22,17 @@
#:export (scm-repl-silent #:export (scm-repl-silent
scm-repl-print-unspecified scm-repl-print-unspecified
scm-repl-verbose scm-repl-verbose
scm-repl-prompt) scm-repl-prompt
assert-repl-silence
;; #:replace, as with deprecated code enabled these will be in the root env assert-repl-print-unspecified
#:replace (assert-repl-silence assert-repl-verbosity
assert-repl-print-unspecified
assert-repl-verbosity
default-pre-unwind-handler default-pre-unwind-handler
bad-throw bad-throw
error-catching-loop error-catching-loop
error-catching-repl error-catching-repl
scm-style-repl scm-style-repl
handle-system-error)) handle-system-error))
(define scm-repl-silent #f) (define scm-repl-silent #f)
(define (assert-repl-silence v) (set! scm-repl-silent v)) (define (assert-repl-silence v) (set! scm-repl-silent v))