detection of input type in conf file now is a case special form

osune · Mar 23, 2016 · 6a592d4 · 6a592d4
1 parent c40150c
commit 6a592d4
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/midijoystick.scm b/midijoystick.scm
@@ -162,9 +162,10 @@ struct js_event input_event;
     (define (make-entry entry)
       (let* ((id (car entry))
 	     (command-bindings (cdr entry))
-	     (t (cond ((equal? (car id) 'a) *JS-EVENT-AXIS*)
-		      ((equal? (car id) 'b) *JS-EVENT-BUTTON*)
-		      (else #f)))
+	     (t (case (car id)
+		  ((a A axis Axis) *JS-EVENT-AXIS* )
+		  ((b B button Button) *JS-EVENT-BUTTON*)
+		  (else #f)))
 	     (i (cadr id)))
 	;; (display command-bindings) (newline)
 	(if (equal? t #f) (begin (display  "failed to parse line: ") (display entry) (newline))