summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/input.scm13
1 files changed, 0 insertions, 13 deletions
diff --git a/2d/input.scm b/2d/input.scm
index f929347..b9679e3 100644
--- a/2d/input.scm
+++ b/2d/input.scm
@@ -22,12 +22,9 @@
;;; Code:
(define-module (2d input)
- #:use-module (srfi srfi-1)
#:use-module (figl runtime) ;; For the define-enumeration macro
#:export (keycode
- any-keycode?
keymod
- all-keymods?
mouse-button))
;;;
@@ -269,11 +266,6 @@
(euro 321)
(undo 322))
-(define (any-keycode? keycode . keycodes)
- "Returns true if keycode equals any of the keycodes provided and
-returns false otherwise."
- (any (lambda (key) (= keycode key)) keycodes))
-
;; Modifier keys
(define-enumeration
keymod
@@ -285,11 +277,6 @@ returns false otherwise."
(num 4096 )
(caps 8192))
-(define (all-keymods? mod . expected)
- "Returns true if all expected modifier bits are set and returns
-false otherwise."
- (not (zero? (apply logand mod expected))))
-
;;;
;;; Mouse
;;;