~ chicken-core (chicken-5) a6b9105f77a1f34fbeb1997a778ccd6afa797121


commit a6b9105f77a1f34fbeb1997a778ccd6afa797121
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jun 2 15:35:08 2017 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jun 2 15:35:11 2017 +1200

    Relax syntax check on `define-foreign-type`
    
    d17df1bf was overly strict when checking the "type" part of the
    `define-foreign-type` form, which might be a complex foreign type and
    not just a symbol.

diff --git a/chicken-ffi-syntax.scm b/chicken-ffi-syntax.scm
index 1bb05407..a825a221 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-type form '(_ symbol symbol . #(_ 0 2)))
+    (##sys#check-syntax 'define-foreign-type form '(_ symbol _ . #(_ 0 2)))
     `(##core#define-foreign-type ,@(cdr form)))))
 
 (##sys#extend-macro-environment
Trap