From 7b9c5be92a210c055414773524d7fda19f2c8d01 Mon Sep 17 00:00:00 2001
From: LemonBoy <address@hidden>
Date: Wed, 3 May 2017 21:06:11 +0200
Subject: [PATCH 2/3] Fix the check for valid C identifiers

We want to check the whole identifier, do not exit after the first
successful check.
---
 support.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/support.scm b/support.scm
index e8d70c63..3d2f413b 100644
--- a/support.scm
+++ b/support.scm
@@ -252,8 +252,8 @@
     (and (pair? str)
 	 (let ([c0 (car str)])
 	   (and (or (char-alphabetic? c0) (char=? #\_ c0))
-		(any (lambda (c) (or (char-alphabetic? c) (char-numeric? c) (char=? #\_ c)))
-		     (cdr str) ) ) ) ) ) )
+		(every (lambda (c) (or (char-alphabetic? c) (char-numeric? c) (char=? #\_ c)))
+		       (cdr str)))))))
 
 ;; TODO: Move these to (chicken memory)?
 (define bytes->words (foreign-lambda int "C_bytestowords" int))
-- 
2.12.2