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: Cosmetic change

Browse source 
* module/ice-9/psyntax.scm (build-simple-lambda): Reflow.
This commit is contained in:
Andy Wingo 2024-11-19 14:36:07 +01:00
parent a14948be2f
commit 6788bb4564
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -268,9 +268,7 @@
(maybe-name-value var exp))) (maybe-name-value var exp)))
(define (build-simple-lambda src req rest vars meta exp) (define (build-simple-lambda src req rest vars meta exp)
(make-lambda src (make-lambda src meta
meta
;; hah, a case in which kwargs would be nice.
(make-lambda-case (make-lambda-case
;; src req opt rest kw inits vars body else ;; src req opt rest kw inits vars body else
src req #f rest #f '() vars exp #f))) src req #f rest #f '() vars exp #f)))