mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 15:40:29 +02:00
Code Activity

* occam-channel.scm (make-channel): Renamed from channel.

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-01-10 18:52:16 +00:00
parent 60eefd9c3a
commit 8411a44631
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/ChangeLog
View file

@ -1,5 +1,7 @@
2003-01-10 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-01-10 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* occam-channel.scm (make-channel): Renamed from channel.
* Makefile.am (ice9_sources): Added occam-channel.scm. * Makefile.am (ice9_sources): Added occam-channel.scm.
* occam-channel.scm: New file. Implements occam-like channels. * occam-channel.scm: New file. Implements occam-like channels.

4
ice-9/occam-channel.scm
View file

@ -45,7 +45,7 @@
#:use-module (oop goops) #:use-module (oop goops)
#:use-module (ice-9 threads) #:use-module (ice-9 threads)
;;#:export-syntax (alt) ;;#:export-syntax (alt)
#:export (channel ? !)) #:export (make-channel ? !))
(define no-data '(no-data)) (define no-data '(no-data))
(define receiver-waiting '(receiver-waiting)) (define receiver-waiting '(receiver-waiting))
@ -55,7 +55,7 @@
(cv #:accessor cv #:init-form (make-condition-variable)) (cv #:accessor cv #:init-form (make-condition-variable))
(mutex #:accessor mutex #:init-form (make-mutex))) (mutex #:accessor mutex #:init-form (make-mutex)))
(define-method (channel) (define-method (make-channel)
(make <channel>)) (make <channel>))
(define-method (? (ch <channel>)) (define-method (? (ch <channel>))