keyboard.ss
(module keyboard mzscheme

(require (prefix a: "private/allegro.ss"))

(provide keypressed?)
(define (keypressed? key)
  (a:key-array key))

(provide (rename a:readkey readkey))

)