~mdw
/
fringe
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Makefile: Apparently Algol 68 Genie now has a compiler. Let's use it.
[fringe]
/
scheme-fringe.scm
diff --git
a/scheme-fringe.scm
b/scheme-fringe.scm
index
5279fbf
..
47b1266
100644
(file)
--- a/
scheme-fringe.scm
+++ b/
scheme-fringe.scm
@@
-74,8
+74,8
@@
((define-generator (name . args) . body)
(define (name . args)
(make-coroutine (lambda ()
((define-generator (name . args) . body)
(define (name . args)
(make-coroutine (lambda ()
-
(begin . body)
-
(resume (calling-coroutine) #f #f)))))))
+ (begin . body)
+ (resume (calling-coroutine) #f #f)))))))
(define (yield object)
;; Yield OBJECT from a generator. The generator protocol returns two
(define (yield object)
;; Yield OBJECT from a generator. The generator protocol returns two