79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
;; (debug:print-info 2 "Processing item: " item)
(hash-table-set! myhash id dat)))
newdat)
(for-each
(lambda (id)
(hash-table-delete! myhash id))
removs)
(list newdat removs))) ;; synchash))
(define *synchashes* (make-hash-table))
(define (synchash:server-get db proc synckey keynum . params)
;; (debug:print-info 2 "synckey: " synckey ", keynum: " keynum ", params: " params)
(let* ((synchash (hash-table-ref/default *synchashes* synckey #f))
|
>
>
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
;; (debug:print-info 2 "Processing item: " item)
(hash-table-set! myhash id dat)))
newdat)
(for-each
(lambda (id)
(hash-table-delete! myhash id))
removs)
;; WHICH ONE!?
;; data)) ;; return the changed and deleted list
(list newdat removs))) ;; synchash))
(define *synchashes* (make-hash-table))
(define (synchash:server-get db proc synckey keynum . params)
;; (debug:print-info 2 "synckey: " synckey ", keynum: " keynum ", params: " params)
(let* ((synchash (hash-table-ref/default *synchashes* synckey #f))
|