PasteRack.org
Paste # 39640
2018-08-31 10:24:12

Fork as a new paste.

Paste viewed 229 times.


Embed:

sys-wait-for-event

#lang racket

(define-tcod sys-wait-for-event
  (_fun _TCOD_event_t [k : (_ptr o _TCOD_key_t)] [m : (_ptr o _TCOD_mouse_t)] _bool
        -> _TCOD_event_t -> (values k m))
  #:c-id TCOD_sys_wait_for_event)