Z-Shang

from collections import namedtuple

TailCall = namedtuple("TailCall", ['fn', 'args', 'kargs'])

class tco:
    def __init__(self, f):
        self.fn = f

    def __call__(self, *a, **k):
        retval = self.fn(*a, **k)

Z-Shang

(in-package :cl-user)

(defpackage :naive-fsm
  (:use :cl)
  (:export
   #:new-mm
   #:state
   #:on
   #:mwhen
   #:trigger