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

psyntax: Remove a useless level of let

Browse source 
* module/ice-9/psyntax.scm: Remove let around the body.
This commit is contained in:
Andy Wingo 2024-11-15 13:57:57 +01:00
parent 3b230745fe
commit 4f05d1709b
1 changed files with 2722 additions and 2723 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/psyntax.scm
View file

@ -123,7 +123,6 @@
fields)))
(lp (1+ n))))))))))
(let ()
(define-expansion-constructors)
(define-expansion-accessors lambda src meta body)
@ -2955,7 +2954,7 @@
((syntax? e)
(match* (syntax-expression e)
p (syntax-wrap e) '() (syntax-module e)))
(else (match* e p empty-wrap '() #f))))))))
(else (match* e p empty-wrap '() #f)))))))
(define-syntax with-syntax