Arc Forumnew | comments | leaders | submitlogin
1 point by akkartik 4819 days ago | link | parent

"I'd put a note in the documentation instead.."

Indeed:

  mac shift $args ; multiply-evals to maintain places
    `(= ,@(zip-flat $args cdr.$args))
http://github.com/akkartik/wart/commit/2299ca5f0f


1 point by rocketnia 4818 days ago | link

I half thought so. :-p Very nice implementation!

-----

2 points by akkartik 4816 days ago | link

You'll like my impl of wipe, then :)

  ; infinite nil generator
  = nils '(nil)   cdr.nils nils

  mac wipe places
    `(= ,@(zip-flat places nils))

-----

1 point by rocketnia 4815 days ago | link

That is pretty nice, yeah. ^_^

-----