~mdw
/
fringe
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
algol68-fringe.a68: Empty row displays are apparently not allowed.
[fringe]
/
scheme-fringe.scm
diff --git
a/scheme-fringe.scm
b/scheme-fringe.scm
index
4ddb079
..
47b1266
100644
(file)
--- a/
scheme-fringe.scm
+++ b/
scheme-fringe.scm
@@
-3,8
+3,6
@@
;;; Scheme implementation of a `same-fringe' solver. Assumes Chicken, but
;;; should port easily.
;;; Scheme implementation of a `same-fringe' solver. Assumes Chicken, but
;;; should port easily.
-(use syntax-case) ; Chicken-specfic
-
;;;--------------------------------------------------------------------------
;;; Utilities.
;;;--------------------------------------------------------------------------
;;; Utilities.
@@
-76,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