summaryrefslogtreecommitdiff
path: root/module/oop
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-10-17 21:25:18 +0200
committerAndy Wingo <wingo@pobox.com>2016-10-17 21:29:05 +0200
commit56d8d9a2577ea96a598f87f50dd6eafab0fcef26 (patch)
tree5276321c54a442ed8acc3546e729393ce524df94 /module/oop
parente61017afa84031ce1c4d3535091a195142a82966 (diff)
downloadguile-56d8d9a2577ea96a598f87f50dd6eafab0fcef26.tar.gz
Deprecate arbiters
* libguile/arbiters.c: * libguile/arbiters.h: * test-suite/tests/arbiters.test: Delete files. * libguile/deprecated.c: * libguile/deprecated.h: Move arbiters code here. * doc/ref/api-scheduling.texi: Remove section on arbiters. * libguile.h: * libguile/Makefile.am: * libguile/init.c: * module/oop/goops.scm: * test-suite/Makefile.am: Remove mention of arbiters. * NEWS: Update.
Diffstat (limited to 'module/oop')
-rw-r--r--module/oop/goops.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index 6dae45418..1d56cc7e1 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -74,7 +74,7 @@
;; corresponding classes, which may be obtained via class-of,
;; once you have an instance. Perhaps FIXME to provide a
;; smob-type-name->class procedure.
- <arbiter> <promise> <thread> <mutex> <condition-variable>
+ <promise> <thread> <mutex> <condition-variable>
<regexp> <hook> <bitvector> <random-state> <async>
<directory> <array> <character-set>
<dynamic-object> <guardian> <macro>
@@ -3096,7 +3096,9 @@ var{initargs}."
;;; {SMOB and port classes}
;;;
-(define <arbiter> (find-subclass <top> '<arbiter>))
+(begin-deprecated
+ (define-public <arbiter> (find-subclass <top> '<arbiter>)))
+
(define <promise> (find-subclass <top> '<promise>))
(define <thread> (find-subclass <top> '<thread>))
(define <mutex> (find-subclass <top> '<mutex>))