Changeset 35756 in project


Ignore:
Timestamp:
07/05/18 05:01:13 (2 weeks ago)
Author:
kon
Message:

use new synch, port => port-no since fixnum not port

Location:
release/4/remote-mailbox/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/remote-mailbox/trunk/remote-mailbox-client.scm

    r35329 r35756  
    2121  remote-mailbox-name
    2222  remote-mailbox-hostname
    23   remote-mailbox-tcp-port
     23  remote-mailbox-tcp-port-no
    2424  remote-mailbox-connected?
    2525  drop-remote-mailbox!
    2626  drop-remote-mailboxes!
    2727  remote-mailboxes
    28   remote-mailbox-send!)
     28  remote-mailbox-send!
     29  ;DEPERECATED
     30  remote-mailbox-tcp-port)
    2931
    3032(import scheme chicken)
     
    5961  (name remote-mailbox-name remote-mailbox-name-set!)
    6062  (hstnam remote-mailbox-hostname)
    61   (prtnum remote-mailbox-tcp-port)
     63  (prtnum remote-mailbox-tcp-port-no)
    6264  (serializer remote-mailbox-serializer)
    6365  (connect remote-mailbox-connect)
     
    8183
    8284(define (*remote-mailbox name hostname tcp-port connect)
    83   (let ((key (make-remote-mailbox-key name hostname tcp-port)))
     85  (let (
     86    (key (make-remote-mailbox-key name hostname tcp-port)) )
    8487    (dict-indempotent-ref!/synch +remote-mailbox-key->remote-mailbox+
    8588      key
     
    182185;
    183186(define (remote-mailbox-send! rmb val)
    184   (record/synch remote-mailbox (check-remote-mailbox 'remote-mailbox-send! rmb)
     187  (record-synch (check-remote-mailbox 'remote-mailbox-send! rmb) remote-mailbox
    185188    (let (
    186189      (out (connection/remote-mailbox rmb))
     
    189192        (serialize req out) ) ) ) )
    190193
     194;;DEPRECATED
     195
     196(: remote-mailbox-tcp-port (deprecated remote-mailbox-tcp-port-no))
     197(define remote-mailbox-tcp-port remote-mailbox-tcp-port-no)
     198
    191199) ;module remote-mailbox-client
    192200
  • release/4/remote-mailbox/trunk/remote-mailbox.meta

    r35329 r35756  
    1616        (lookup-table "1.13.1")
    1717        (check-errors "1.12.0")
    18         (synch "2.1.1"))
     18        (synch "2.3.0"))
    1919 (files
    2020  "remote-mailbox.meta" "remote-mailbox.release-info" "remote-mailbox.setup"
Note: See TracChangeset for help on using the changeset viewer.