[ create a new paste ] login | about

Link: http://codepad.org/FZMo8jOV    [ raw code | fork ]

fujita-y - Scheme, pasted on Apr 3:
1
2
3
4
5
6
7
8
(close
 (2 0 . for-each-1)
 (iloc.0 . 1)
 (if.null? (ret.const.unspec))
 (call (push.car.iloc (0 . 1)) (apply.iloc (0 . 0)))
 (push.iloc.0 . 0)
 (push.cdr.iloc (0 . 1))
 (apply.gloc.of for-each-1))


Create a new paste based on this one


Comments: