guile-hurd/hurd/ports.scm

(define-module (hurd ports)
  #:use-module (oop goops)
  #:use-module (hurd-cl-compat)
  #:use-module (mach)
  #:use-module (ice-9 control)
  #:export (bucket-add-control-port!
	    bucket-add-port!
	    move-receive-right!
	    bucket-has-port?
	    bucket-lookup-port
	    bucket-remove-port!
	    bucket-iterate
	    make-bucket
	    bucket-count
	    bucket-count-type
	    bucket-find))

(read-set! keywords 'prefix)

(define-syntax-rule (include-from-paths x ...)
  (begin (include-from-path x)
	 ...))

(define-syntax-rule (in-package #:hurd)
  (begin #f))

(include-from-paths
 "hurd/ports/port.lisp"
 "hurd/ports/bucket.lisp"
 "hurd/ports/notify.lisp"
 "hurd/ports/dead-name.lisp"
 "hurd/ports/demuxer.lisp"
 "hurd/ports/no-senders.lisp"
 "hurd/ports/server.lisp")