TSS let/cc, try

• pkrumins's the-seasoned-schemer at master - GitHub
• seasoned-schemer

(define-syntax letcc (syntax-rules () ((letcc var . body) (call-with-current-continuation (lambda (var) . body))))) (define-syntax try (syntax-rules () ((try var a . b) (letcc success (letcc var (success a)) . b))))

• Gauche ユーザリファレンス: 6.16 制御