56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
orig-keys)
(list changed deleted)
;; (list indat '()) ;; just for debugging
))
;; keynum => the field to use as the unique key (usually 0 but can be other field)
;;
(define (synchash:client-get proc synckey keynum synchash run-id . params)
(let* ((data (rmt:synchash-get run-id proc synckey keynum params))
(newdat (car data))
(removs (cadr data))
(myhash (hash-table-ref/default synchash synckey #f)))
(if (not myhash)
(begin
(set! myhash (make-hash-table))
(hash-table-set! synchash synckey myhash)))
|
|
|
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
orig-keys)
(list changed deleted)
;; (list indat '()) ;; just for debugging
))
;; keynum => the field to use as the unique key (usually 0 but can be other field)
;;
(define (synchash:client-get area-dat proc synckey keynum synchash run-id . params)
(let* ((data (rmt:synchash-get area-dat run-id proc synckey keynum params))
(newdat (car data))
(removs (cadr data))
(myhash (hash-table-ref/default synchash synckey #f)))
(if (not myhash)
(begin
(set! myhash (make-hash-table))
(hash-table-set! synchash synckey myhash)))
|