From 935f5362b20db8a3fb22c662e78eaea8cb276d11 Mon Sep 17 00:00:00 2001 From: LemonBoy Date: Sat, 27 May 2017 22:58:31 +0200 Subject: [PATCH] Check the syntax correctness for some constructs Forgetting to do so leads to segfaults in the compiler and suboptimal error messages for the end user. Signed-off-by: Peter Bex --- chicken-ffi-syntax.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/chicken-ffi-syntax.scm b/chicken-ffi-syntax.scm index ea87ced..c997071 100644 --- a/chicken-ffi-syntax.scm +++ b/chicken-ffi-syntax.scm @@ -195,6 +195,7 @@ '() (##sys#er-transformer (lambda (form r c) + (##sys#check-syntax 'define-foreign-type form '(_ symbol symbol . #(_ 0 2))) `(##core#define-foreign-type ,@(cdr form))))) (##sys#extend-macro-environment @@ -202,6 +203,7 @@ '() (##sys#er-transformer (lambda (form r c) + (##sys#check-syntax 'define-foreign-variable form '(_ symbol symbol . #(string 0 1))) `(##core#define-foreign-variable ,@(cdr form))))) (##sys#extend-macro-environment -- 2.1.4