Arc Forumnew | comments | leaders | submitlogin
'wipeop
2 points by evanrmurphy 5638 days ago | 6 comments
A baby macro that is roughly to 'defop what 'wipe is to '=:

  (mac wipeop (name (o msg "nil"))
    `(defop ,name ()
      (pr ,msg)))
A lot of times when I'm experimenting with html I'll do a

  (defop test req
    ... )
to see how something works in the browser. Immediately afterward I'll start typing

  (wipe test)
(because I'm a bit OCD about globals) when I remember that 'test isn't a place. This is just so I'm able to do

  (wipeop test)
and get the desired effect. Nothing fancy but I wanted to share. :)


1 point by evanrmurphy 5638 days ago | link

Here's a version that takes any number of arguments:

  (mac wipeop names
    `(do ,@(map (fn (_)
                  `(defop ,_ ()
                     (pr nil)))
                  names)))

-----

1 point by evanrmurphy 5638 days ago | link

Just realized you can get the same effect without initializing the optional arg:

  (mac wipeop (name (o msg))
    `(defop ,name ()
      (pr ,msg)))

-----

2 points by akkartik 5638 days ago | link

Or even just:

  (def wipeop (op) (wipe srvops*.op))
You'll have to quote the name, but that seems a minor inconvenience.

-----

4 points by evanrmurphy 5638 days ago | link

I originally wrote it with 'def but switched to 'mac precisely for that inconvenience. Could do it your way with:

  (mac wipeop (op)
    `(wipe (srvops* ',op)))
I like that these actually use 'wipe and literally wipe the op. The others are more parallel to 'wipe though in that they make the page say "nil" instead of "Unknown." Recall 'wipe sets a place to nil instead of undefining completely and making it cause

  Error: "reference to undefined identifier: _test"
OTOH, I've wished before that 'wipe actually did this, and I realize it's kind of a trivial point.

-----

1 point by akkartik 5638 days ago | link

Actually not trivial at all. I agree with you.

-----

1 point by evanrmurphy 5638 days ago | link

Could even take that arg out altogether since all it's supposed to do is wipe:

  (mac wipeop (name)
    `(defop ,name ()
      (pr nil)))
There, now it's an even babier macro. ;)

-----