From ece49d5bd0692bc8373a8b024909530d0db67cde 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 3cef425f712f16fb4d2352c6e81664c3bda1e231 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 f65b3b1df4f7e6f6e281272ac61262444e59979e Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Sat, 3 Oct 2015 16:45:43 +0300
Subject: Add more highlighting/indentation for Guile

---
 elisp/geiser-guile.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 699ed9a..e70ca30 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -247,14 +247,19 @@ This function uses `geiser-guile-init-file' if it exists."
 
 (defconst geiser-guile--builtin-keywords
   '("call-with-input-file"
-    "call-with-output-file"
     "call-with-input-string"
+    "call-with-output-file"
     "call-with-output-string"
+    "call-with-prompt"
+    "call-with-trace"
     "define-accessor"
     "define-class"
     "define-enumeration"
     "define-inlinable"
+    "define-syntax-parameter"
+    "eval-when"
     "lambda*"
+    "syntax-parameterize"
     "use-modules"
     "with-error-to-file"
     "with-error-to-port"
@@ -283,9 +288,13 @@ This function uses `geiser-guile-init-file' if it exists."
  (c-lambda 2)
  (call-with-input-string 1)
  (call-with-output-string 0)
+ (call-with-prompt 1)
+ (call-with-trace 0)
+ (eval-when 1)
  (lambda* 1)
  (pmatch defun)
  (sigaction 1)
+ (syntax-parameterize 1)
  (with-error-to-file 1)
  (with-error-to-port 1)
  (with-error-to-string 0)
@@ -295,8 +304,8 @@ This function uses `geiser-guile-init-file' if it exists."
  (with-input-from-string 1)
  (with-method 1)
  (with-mutex 1)
- (with-output-to-string 0))
-
+ (with-output-to-string 0)
+ (with-throw-handler 1))
 
 
 ;;; Compilation shell regexps
-- 
cgit v1.2.3


From 5b2bd49f2c9bb7cea8c63485e40d267ea27bace0 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