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