;; @module cslib.lsp
;; @description Assorted goodies
;; @location http://slobin.pp.ru/newlisp/cslib.lsp
;; @author Cyril Slobin <cyril@slobin.pp.ru>

;; CS is for <b>2-chlorobenzalmalononitrile</b>

(define-macro (block)
  (catch (eval (cons 'begin (args)))))

(define-macro (grow)
  (push (eval (args 1)) (eval (args 0)) -1))

(define-macro (make-pass)
  (doargs (arg)
    (letex ((Old arg)
            (New (sym (append (string arg) "&"))))
      (define-macro (New)
        (Old (eval (args)))))))

(make-pass ! not print) ; et cetera