summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-06-25 19:48:26 -0400
committerDavid Thompson <dthompson2@worcester.edu>2013-06-25 19:48:26 -0400
commitd613b5b0b9e29492865ef7861c2eb1cd9d8eea1a (patch)
tree4405bbe163578f5b26b3cd082be0728d26740d88 /2d
parentc68182413ed510ee5a93a14a39c618d2ef346d90 (diff)
Remove procedures that have been replaced by more generic helper procedures.
Diffstat (limited to '2d')
-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
;;;