mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix handling of parameter lists to elisp defun to allow nil.

Browse source 
Thanks to Vasilij Schneidermann.
This commit is contained in:
Mikael Djurfeldt 2021-04-01 20:56:22 +02:00
parent 498564e3e3
commit 01bfd18f3d
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
NEWS
View file

@ -194,9 +194,11 @@ See "Syntax Transformer Helpers" in the manual.
** Fix srfi-69 merge-hash ** Fix srfi-69 merge-hash
** Fix suspendable-ports implementation of get-bytevector-some! ** Fix suspendable-ports implementation of get-bytevector-some!
** Fix overread in string-locale<?, string-locale-ci<?, and friends ** 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, Thanks to Vasilij Schneidermann, Andrey Ivanov, Rob Browning, Erik
Michael Gran, Andrew Whatson, and Ricardo G. Herdt. Dominikus, Göran Weinholt, Michael Gran, Andrew Whatson, and Ricardo
G. Herdt.
* New deprecations * New deprecations

1
module/language/elisp/compile-tree-il.scm
View file

@ -259,6 +259,7 @@
(define (%match lst null optional rest symbol) (define (%match lst null optional rest symbol)
(pmatch lst (pmatch lst
(() (null)) (() (null))
(nil (null))
((&optional . ,tail) (optional tail)) ((&optional . ,tail) (optional tail))
((&rest . ,tail) (rest tail)) ((&rest . ,tail) (rest tail))
((,arg . ,tail) (guard (symbol? arg)) (symbol arg tail)) ((,arg . ,tail) (guard (symbol? arg)) (symbol arg tail))