Name: Anonymous 2011-05-01 14:32
Mine is Java. Long live Gosling!
(define-syntax (for stx)
(syntax-case stx ()
((for init cond incr . body)
(with-literal stx (break continue)
#'(let/ec break
init
(let loop ()
(let/ec continue
. body)
incr
(loop)))))))
(define-syntax (define* stx)
(syntax-case stx ()
((define* (f . x) . body)
(with-literal stx (return)
#'(define (f . x)
(let/ec return . body))))))
(define* (fact x)
(when (< x 1)
(return 1))
(return
(for (define r 1) #t (set! x (- x 1))
(when (< x 1)
(break r))
(set! r (* x r)))))
(fact 5)