Arc Forumnew | comments | leaders | submitlogin
1 point by akkartik 4576 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 4575 days ago | link

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

-----

2 points by akkartik 4573 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 4572 days ago | link

That is pretty nice, yeah. ^_^

-----