~ chicken-core (chicken-5) d2ac5e7ccc4f891d85af9440e87d375fea4f6752
commit d2ac5e7ccc4f891d85af9440e87d375fea4f6752
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:57:00 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 0564c4b2..6757b784 100644
--- a/chicken-ffi-syntax.scm
+++ b/chicken-ffi-syntax.scm
@@ -203,7 +203,7 @@
'()
(##sys#er-transformer
(lambda (form r c)
- (##sys#check-syntax 'define-foreign-variable form '(_ symbol symbol . #(_ 0 1)))
+ (##sys#check-syntax 'define-foreign-variable form '(_ symbol _ . #(_ 0 1)))
`(##core#define-foreign-variable ,@(cdr form)))))
(##sys#extend-macro-environment
Trap