You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
304 B
Racket
11 lines
304 B
Racket
9 years ago
|
#lang br
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(define-values (bus bus? bus-get)
|
||
|
|
(make-impersonator-property 'bus))
|
||
|
|
|
||
|
|
(define-values (output-bus output-bus? output-bus-get)
|
||
|
|
(make-impersonator-property 'output-bus))
|
||
|
|
|
||
|
|
(define-values (input-bus input-bus? input-bus-get)
|
||
|
|
(make-impersonator-property 'input-bus))
|