(define-module (backend ast ir)
  #:export (prog
            srout
            neg
            not
            mov
            stack
            reg
            imm
            tmp
            ret))

;;; Commentary:
;;;
;;; Nodes which exist to do nothing when evaluated.
;;;
;;; Code:

(define-syntax def-ir-nodes
  (syntax-rules ()
    ((_ names ...)
     (begin
       (define (names . args)
	 (cons 'names args)) ...))))

(def-ir-nodes
  prog srout neg not mov stack reg imm tmp ret)