23 lines
649 B
Scheme
23 lines
649 B
Scheme
;; -*- mode:scheme -*-
|
|
|
|
(define (silly)
|
|
(define f (pop!))
|
|
(define g (pop!))
|
|
(define h (pop!))
|
|
(define x (pop!))
|
|
(define ktail (pop-cont!))
|
|
(push-cont! (κ (x0)
|
|
(define x* (pop!))
|
|
(define g* (pop!))
|
|
(push-cont! (κ (x1)
|
|
(define f* (pop!))
|
|
(define x0* (pop!))
|
|
(push-cont! ktail)
|
|
(push! x0*)
|
|
(push! x1)
|
|
(call! f)))
|
|
(push! x*)
|
|
(call! g)))
|
|
(push! x)
|
|
(call! h))
|