coma/rep.ss
#lang scheme/base

(require "../scat.ss")

;; Macros have a slightly different representation over Scat words:
;; primitive macros contain type annotations and composite ones are
;; intensional, so types can be inferred.

(provide (all-defined-out))

(require scheme/pretty)
(define (make-primitive-macro fn clauses)
  ;; (pretty-print clauses)
  (make-word fn clauses))