~ chicken-core (chicken-5) 8d5b390e6d9e2ca678b9ad1e4953b15d4401ff46

commit 8d5b390e6d9e2ca678b9ad1e4953b15d4401ff46
Author:     LemonBoy <thatlemon@gmail.com>
AuthorDate: Thu Sep 7 20:52:27 2017 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Sep 8 11:15:34 2017 +1200

    Relax the syntax check a bit more
    
    Some foreign types are expressed using a list, eg: (enum <type>).
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/chicken-ffi-syntax.scm b/chicken-ffi-syntax.scm
index aa640ff0..d78c2728 100644
--- a/chicken-ffi-syntax.scm
+++ b/chicken-ffi-syntax.scm
@@ -211,7 +211,7 @@
  '()
  (##sys#er-transformer
   (lambda (form r c)
-    (##sys#check-syntax 'define-foreign-variable form '(_ symbol symbol . #(string 0 1)))
+    (##sys#check-syntax 'define-foreign-variable form '(_ symbol _ . #(string 0 1)))
     `(##core#define-foreign-variable ,@(cdr form)))))
 
 (##sys#extend-macro-environment