(set! yield k3) ; now calling yield with val will return val from the call to next
; when the next line is executed, resume will be bound to k2
(set! yield k3) ; now calling yield with val will return val from the call to next
; when the next line is executed, resume will be bound to k2
- (delta '(((a b) ()) (c (d ())))) ; ~~> #f
- (delta '(((a b) ()) (b (d ())))) ; ~~> #t
- (delta '(((a b) ()) (c (d (d))))) ; ~~> #t
+ (delta '(((a b) ()) (c (d ())))) ; ~~> #f
+ (delta '(((a b) ()) (b (d ())))) ; ~~> #t
+ (delta '(((a b) ()) (c (d (d))))) ; ~~> #t