guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] branch master updated: Fix handling of parameter lists t


From: Mikael Djurfeldt
Subject: [Guile-commits] branch master updated: Fix handling of parameter lists to elisp defun to allow nil.
Date: Thu, 01 Apr 2021 14:57:52 -0400

This is an automated email from the git hooks/post-receive script.

mdj pushed a commit to branch master
in repository guile.

The following commit(s) were added to refs/heads/master by this push:
     new 01bfd18  Fix handling of parameter lists to elisp defun to allow nil.
01bfd18 is described below

commit 01bfd18f3dad37ba5d4d7730a17895b637fd455c
Author: Mikael Djurfeldt <mikael@djurfeldt.com>
AuthorDate: Thu Apr 1 20:56:22 2021 +0200

    Fix handling of parameter lists to elisp defun to allow nil.
    
    Thanks to Vasilij Schneidermann.
---
 NEWS                                      | 6 ++++--
 module/language/elisp/compile-tree-il.scm | 1 +
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/NEWS b/NEWS
index d11f38e..397ff6c 100644
--- a/NEWS
+++ b/NEWS
@@ -194,9 +194,11 @@ See "Syntax Transformer Helpers" in the manual.
 ** Fix srfi-69 merge-hash
 ** Fix suspendable-ports implementation of get-bytevector-some!
 ** Fix overread in string-locale<?, string-locale-ci<?, and friends
+** Fix handling of parameter lists to elisp defun to allow nil
 
-Thanks to Andrey Ivanov, Rob Browning, Erik Dominikus, Göran Weinholt,
-Michael Gran, Andrew Whatson, and Ricardo G. Herdt.
+Thanks to Vasilij Schneidermann, Andrey Ivanov, Rob Browning, Erik
+Dominikus, Göran Weinholt, Michael Gran, Andrew Whatson, and Ricardo
+G. Herdt.
 
 * New deprecations
 
diff --git a/module/language/elisp/compile-tree-il.scm 
b/module/language/elisp/compile-tree-il.scm
index 0334e6f..adbeb20 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -259,6 +259,7 @@
   (define (%match lst null optional rest symbol)
     (pmatch lst
       (() (null))
+      (nil (null))
       ((&optional . ,tail) (optional tail))
       ((&rest . ,tail) (rest tail))
       ((,arg . ,tail) (guard (symbol? arg)) (symbol arg tail))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]