Paste # 20681:

PasteRack.org

Paste # 20681
2019-06-08 21:38:41

Fork as a new paste.
Paste viewed 467 times.
Tweet
Embed:
<link type="text/css" rel="stylesheet" href="http://pasterack.org/scribble.css"/><link type="text/css" rel="stylesheet" href="http://pasterack.org/racket.css"/><link type="text/css" rel="stylesheet" href="http://fonts.googleapis.com/css?family=Droid+Sans+Mono"/><div><pre>(defmacro sideeffect (func &rest body) (if (not func) (setq func 'identity)) (run func body) `(try (identity ,@body) nil)) (defmacro sideeffect (func &rest body) (if (not func) (setq func 'identity)) (run func body) `(try (identity ,@body) nil))</pre></div>

(defmacro sideeffect (func &rest body)
  (if (not func)
      (setq func 'identity))
  (run func body)
  `(try (identity ,@body) nil))

(defmacro sideeffect (func &rest body)
  (if (not func)
      (setq func 'identity))
  (run func body)
  `(try (identity ,@body) nil))