copy.idel

来自「idel虚拟机源码」· IDEL 代码 · 共 6 行

def 0 1 main   copying 0 ;
def 0 0 copying
  absorb { c -- c 0 < if
                    else  c emit  copying
                    then } ;