From 7a046982fc3bfa9f2d54585eff090259a29579cb Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Sat, 3 Oct 2015 16:23:51 +0300
Subject: Add highlighting/indentation for exceptions

Exceptions are defined by R6RS, SRFI-18 and SRFI-34.
---
 elisp/geiser-syntax.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 6a5cb55..71ca83e 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -33,6 +33,7 @@
  (catch defun)
  (class defun)
  (dynamic-wind 0)
+ (guard 1)
  (let*-values 1)
  (let-values 1)
  (let/ec 1)
@@ -52,6 +53,7 @@
  (unless 1)
  (when 1)
  (while 1)
+ (with-exception-handler 1)
  (with-syntax 1))
 
 
@@ -78,6 +80,7 @@
     "set!"
     "unless"
     "when"
+    "with-exception-handler"
     "with-input-from-file"
     "with-output-to-file"))
 
-- 
cgit v1.2.3


From daa379adb02505248e5ec82ec2fc1ea29322da16 Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Sat, 3 Oct 2015 16:31:41 +0300
Subject: Add highlighting/indentation for tests

API for test suites is defined by SRFI-64.
---
 elisp/geiser-syntax.el | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 71ca83e..d7f6241 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -50,6 +50,20 @@
  (receive 2)
  (require-extension 0)
  (syntax-case 2)
+ (test-approximate 1)
+ (test-assert 1)
+ (test-eq 1)
+ (test-equal 1)
+ (test-eqv 1)
+ (test-group-with-cleanup 1)
+ (test-runner-on-bad-count! 1)
+ (test-runner-on-bad-end-name! 1)
+ (test-runner-on-final! 1)
+ (test-runner-on-group-begin! 1)
+ (test-runner-on-group-end! 1)
+ (test-runner-on-test-begin! 1)
+ (test-runner-on-test-end! 1)
+ (test-with-runner 1)
  (unless 1)
  (when 1)
  (while 1)
@@ -78,6 +92,17 @@
     "receive"
     "require-extension"
     "set!"
+    "test-approximate"
+    "test-assert"
+    "test-begin"
+    "test-end"
+    "test-eq"
+    "test-equal"
+    "test-eqv"
+    "test-error"
+    "test-group"
+    "test-group-with-cleanup"
+    "test-with-runner"
     "unless"
     "when"
     "with-exception-handler"
-- 
cgit v1.2.3


From 6a388e7718d71634b1cf504cbacce108e499498c Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Sat, 3 Oct 2015 17:05:01 +0300
Subject: Add missing highlighting for 'syntax-case'

---
 elisp/geiser-syntax.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index d7f6241..81ba8c6 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -92,6 +92,7 @@
     "receive"
     "require-extension"
     "set!"
+    "syntax-case"
     "test-approximate"
     "test-assert"
     "test-begin"
-- 
cgit v1.2.3