diff options
author | Andy Wingo <wingo@pobox.com> | 2017-05-22 13:36:42 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-05-22 13:36:42 +0200 |
commit | c248ea10beb2afa4c113dbc6dc707bed5dbfc92e (patch) | |
tree | db395a46941c1a13096f9b49dd6b1405fd38dfc7 /module/oop | |
parent | 8f4597d1da371c23e19721c2fdb3177c3ae73f14 (diff) | |
download | guile-c248ea10beb2afa4c113dbc6dc707bed5dbfc92e.tar.gz |
Remove all deprecated code
* 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.
Diffstat (limited to 'module/oop')
-rw-r--r-- | module/oop/goops.scm | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm index a46918062..c78d0bd3c 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -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>)) |