awwx

test gist

test test

one two three

awwx

#lang racket

(require mzlib/defmacro)

(provide mac)

(define-for-syntax macros-at-compile-time (make-hash))

(define-syntax macros-at-run-time
  (lambda (stx)

awwx

(mac do args
  `((lambda () ,@args)))

awwx

(do (display "using ")
    (display "Arc macro\n"))

awwx

using Arc macro

awwx

#lang racket/load

(require "mac.rkt")

(mac do args
  `((lambda () ,@args)))

awwx

> (do (display "using ")
      (display "Arc macro\n"))
using Arc macro

awwx

> (define-syntax-rule (foo)
    (do (display "Racket macro ")
        (display "using Arc macro\n")))
> (foo)
Racket macro using Arc macro

> (define-syntax-rule (bar-helper)
    (display "Racket macro\n"))
> (mac bar ()
    `(do (display "Arc macro using ")

awwx

arc> x
Error: reference to undefined identifier: _x
arc> (namespace-set (this-namespace) 'x 123)
nil
arc> x
123

awwx

arc> (= other (new-arc))
#hash((racket-namespace* . #<namespace:0>))
arc> (namespace-get other 'car)
#<procedure:arc-car>
arc> (namespace-get other 'map)
Error: namespace-variable-value: _map is not defined