bjoli/goof-loop
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

loops without subloops can now use :for clauses in final-expr

Browse source
This commit is contained in:
Linus 2021-05-21 20:42:10 +02:00
parent 9988434554
commit e057a6b8fe
3 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
goof-impl.scm
View file

@ -306,15 +306,19 @@
(((ff-cur ...) (ff-above ...)))
((us ...))
final-expr . body)
(let* ((final-fun (lambda (final-binding ...) final-expr))
lets ...)
(let* (lets ...)
(let loop ((accvar accinit) ... (var init) ...)
(if (or checks ...)
(begin
ff-above ...
ff-cur ...
(final-fun final-value ...))
(let ((final-binding final-value) ...)
final-expr))
(ref-let (refs ...)
(user (ff-above ... ff-cur ... (final-fun final-value ...))
(user (ff-above ...
ff-cur ...
(let ((final-binding final-value) ...)
final-expr))
(loop accvar ... step ...)
#f
(us ...)