Macraのコンパイラに遅延評価を実装

lazyMacra.hs

-- 今、
"!funcall !lambda x x 1" --＃１
-- をコンパルすると
Right (FrameInst HaltInst (ConstExpr 1.0 (ArgInst (CloseInst "x" (ReferInst "x" ReturnInst) ApplyInst)))) -- ＃２

-- これで1を遅延させるには、thunkに包んでやる。
!funcall !lambda x !funcall x nil !lambda nil 1 --＃3
-- コンパイルするとこうなる
Right (FrameInst HaltInst (CloseInst "nil" (ConstExpr 1.0 ReturnInst) (ArgInst (CloseInst "x" (FrameInst ReturnInst (ReferInst "nil" (ArgInst (ReferInst "x" ApplyInst)))) ApplyInst)))) -- ＃４

-- Macraを遅延評価にするなら、＃１を直接＃４にコンパイルしてやればいい。