source: project/release/4/remote-mailbox/trunk/remote-mailbox-packet.scm @ 34481

Last change on this file since 34481 was 34481, checked in by kon, 23 months ago

i shouldn't need to do this

File size: 712 bytes
Line 
1;;;; remote-mailbox-packet.scm
2;;;; Kon Lovett, Sep '17
3
4(module remote-mailbox-packet
5
6(;export
7  ;;
8  make-remote-mailbox-packet
9  remote-mailbox-packet?
10  remote-mailbox-packet-key
11  remote-mailbox-packet-value )
12
13(import scheme)
14
15(import chicken)
16
17;;; Remote Mailbox Packet
18
19(define +remote-mailbox-tag+ 'rmbtag)
20
21(define (make-remote-mailbox-packet key val)
22  (vector +remote-mailbox-tag+ key val) )
23
24(define (remote-mailbox-packet? obj)
25        (and
26          (vector? obj)
27    (= 3 (vector-length obj))
28    (eq? +remote-mailbox-tag+ (vector-ref obj 0))) )
29
30(define (remote-mailbox-packet-key rmp)
31  (vector-ref rmp 1) )
32
33(define (remote-mailbox-packet-value rmp)
34  (vector-ref rmp 2) )
35
36) ;module remote-mailbox-packet
Note: See TracBrowser for help on using the repository browser.