atomy macro bootstrapping

gistfile1.txt

-- TODO: define 'nil'
-- TODO: define quasiquote code, use for the macro macro
-- TODO: make quasiquote in macro pattern implicit (e.g. macro(~a + ~b): '2)

define-method(
    'define-macro
    'define-method('expand, body, '_, pattern)
    '_
    'pattern
    'body)

define-macro(
    '`(macro(~pattern): ~body),
    'define-macro(pattern, body))

macro(`1): '2

p(1) -- => 2