;
;
;; IFBEAT-GT X Y
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; if beat greater than X
;
; (ifbeat-gt denominator numerator (do ...) (else do ....))
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(impc:aot:do-or-emit
(define-macro (ifbeat-gt x y args . elseargs)
`(if (> (modulo beat ,x) ,y)
,args
,@elseargs))
)