mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +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))) fields)))
(lp (1+ n)))))))))) (lp (1+ n))))))))))
(let ()
(define-expansion-constructors) (define-expansion-constructors)
(define-expansion-accessors lambda src meta body) (define-expansion-accessors lambda src meta body)
@ -2955,7 +2954,7 @@
((syntax? e) ((syntax? e)
(match* (syntax-expression e) (match* (syntax-expression e)
p (syntax-wrap e) '() (syntax-module 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 (define-syntax with-syntax