(module keyboard mzscheme

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

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

(define (key-modifiers) (a:key-shifts))

(provide key-modifiers
	 (rename a:clear-keybuf clear-keyboard)
	 (rename a:readkey readkey)
	 (rename a:keypressed any-keypressed?)
	 (rename a:simulate-keypress simulate-keypress))

)