summaryrefslogtreecommitdiff
path: root/module/oop
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-05-22 13:36:42 +0200
committerAndy Wingo <wingo@pobox.com>2017-05-22 13:36:42 +0200
commitc248ea10beb2afa4c113dbc6dc707bed5dbfc92e (patch)
treedb395a46941c1a13096f9b49dd6b1405fd38dfc7 /module/oop
parent8f4597d1da371c23e19721c2fdb3177c3ae73f14 (diff)
downloadguile-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.scm37
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>))