suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid unnecessary void accumulator for for[*]

Browse Source
This commit is contained in:
Matthew Flatt 2016-12-13 18:20:21 -07:00
parent d7b18e7a9c
commit 7204d3136b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/racket/private/for.rkt
View File

@ -1655,10 +1655,10 @@
[(_ . rest) (quasisyntax/loc stx (for*/fold/derived #,stx . rest))]))
(define-for-variants (for for*)
([fold-var (void)])
()
(lambda (x) `(,#'begin ,x ,#'(void)))
(lambda (x) x)
(lambda (x) x)
(lambda (x) `(,#'begin ,x ,#'(void))))
(lambda (x) `(,#'begin ,x ,#'(values))))
(define-syntax-via-derived for/list for/list/derived () (lambda (x) x) (lambda (x) x) (lambda (x) x))
(define-syntax-via-derived for*/list for*/list/derived () (lambda (x) x) (lambda (x) x) (lambda (x) x))