From d613b5b0b9e29492865ef7861c2eb1cd9d8eea1a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 25 Jun 2013 19:48:26 -0400
Subject: Remove procedures that have been replaced by more generic helper
 procedures.

---
 2d/input.scm | 13 -------------
 1 file changed, 13 deletions(-)

(limited to '2d/input.scm')

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
 ;;;
-- 
cgit v1.2.3