added support for case* syntax

marcomaggi · Sep 1, 2017 · 58def48 · 58def48
1 parent 9a42087
commit 58def48
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/chezscheme-lists-of-symbols.el b/src/chezscheme-lists-of-symbols.el
@@ -4,7 +4,7 @@
 
 ;; Author: Marco Maggi <marco.maggi-ipsu@poste.it>
 ;; Created: Tue Dec 10, 2013
-;; Time-stamp: <2017-08-12 07:12:53 marco>
+;; Time-stamp: <2017-09-01 07:50:58 marco>
 ;; Keywords: convenience, data, languages
 
 ;; This file is part of MMUX Home Directory.
@@ -831,6 +831,8 @@ language built ins.")
     "with-escape-handlers-stack" "with-escape-handler" "run-escape-handlers"
     "with-blocked-exceptions" "with-current-dynamic-environment"
 
+    "case*"
+
     "shift" "reset"
 
     "for" "only" "except" "rename" "prefix" "deprefix"

diff --git a/src/chezscheme.el b/src/chezscheme.el
@@ -4,7 +4,7 @@
 
 ;; Author: Marco Maggi <marco.maggi-ipsu@poste.it>
 ;; Created: Tue Dec 10, 2013
-;; Time-stamp: <2017-08-12 16:01:32 marco>
+;; Time-stamp: <2017-09-01 07:51:20 marco>
 ;; Keywords: languages
 
 ;; This file is part of Chez Scheme Mode.
@@ -569,6 +569,7 @@ in the Scheme mode hook."
     (call-with-string-output-port	. 1)
     (call-with-values			. 1)
     (call/cc				. 1)
+    (case*				. 1)
     (condition				. 0)
     (define-condition-type		. 2)
     (error				. 1)