diff options
author | Andy Wingo <wingo@pobox.com> | 2016-10-17 21:25:18 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-10-17 21:29:05 +0200 |
commit | 56d8d9a2577ea96a598f87f50dd6eafab0fcef26 (patch) | |
tree | 5276321c54a442ed8acc3546e729393ce524df94 /module/oop | |
parent | e61017afa84031ce1c4d3535091a195142a82966 (diff) | |
download | guile-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.scm | 6 |
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>)) |