;; predicate (bind-func is_touch_move:[i1,TOUCHINPUT*]* (lambda (obj) (if (= (& (tref obj 4) TOUCHEVENTF_MOVE) 0) #f #t)))