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

Remove all deprecated code

Browse source 
* module/ice-9/debug.scm:
* module/ice-9/mapping.scm:
* module/ice-9/syncase.scm: Delete these deprecated files.
* module/Makefile.am: Remove deleted files.
* libguile/deprecated.c:
* libguile/deprecated.h:
* libguile/backtrace.c:
* libguile/goops.c:
* libguile/numbers.c:
* libguile/socket.c:
* libguile/srfi-13.c:
* module/ice-9/deprecated.scm:
* module/ice-9/format.scm:
* module/oop/goops.scm:
* module/statprof.scm:
* module/texinfo/reflection.scm:
* module/web/client.scm:
* module/web/uri.scm: Remove deprecated code.
This commit is contained in:
Andy Wingo 2017-05-22 13:36:42 +02:00
parent 8f4597d1da
commit c248ea10be
18 changed files with 10 additions and 1649 deletions
Download patch file Download diff file Expand all files Collapse all files

37
module/oop/goops.scm
View file

@ -1188,39 +1188,6 @@ function."
#f)
(%class-slot-definition (class-of obj) slot-name have-slot no-slot))
(begin-deprecated
(define (check-slot-args class obj slot-name)
(unless (eq? class (class-of obj))
(scm-error 'wrong-type-arg #f "~S is not the class of ~S"
(list class obj) #f))
(unless (symbol? slot-name)
(scm-error 'wrong-type-arg #f "Not a symbol: ~S"
(list slot-name) #f)))
(define (slot-ref-using-class class obj slot-name)
(issue-deprecation-warning "slot-ref-using-class is deprecated. "
"Use slot-ref instead.")
(check-slot-args class obj slot-name)
(slot-ref obj slot-name))
(define (slot-set-using-class! class obj slot-name value)
(issue-deprecation-warning "slot-set-using-class! is deprecated. "
"Use slot-set! instead.")
(check-slot-args class obj slot-name)
(slot-set! obj slot-name value))
(define (slot-bound-using-class? class obj slot-name)
(issue-deprecation-warning "slot-bound-using-class? is deprecated. "
"Use slot-bound? instead.")
(check-slot-args class obj slot-name)
(slot-bound? obj slot-name))
(define (slot-exists-using-class? class obj slot-name)
(issue-deprecation-warning "slot-exists-using-class? is deprecated. "
"Use slot-exists? instead.")
(check-slot-args class obj slot-name)
(slot-exists? obj slot-name)))
@ -3097,10 +3064,6 @@ var{initargs}."
;;; {SMOB and port classes}
;;;
(begin-deprecated
(define-public <arbiter> (find-subclass <top> '<arbiter>))
(define-public <async> (find-subclass <top> '<async>)))
(define <promise> (find-subclass <top> '<promise>))
(define <thread> (find-subclass <top> '<thread>))
(define <mutex> (find-subclass <top> '<mutex>))