You can't define class inside syntax-rules macro

[jcubic]

I've tried to create syntax-rules macro for definition of records:

(define-syntax define-record-type
  (syntax-rules ()
    ((_ "field" arg get set)
     (begin
       (define (get obj)
         (. obj 'arg))
       (define (set obj value)
         (set-obj! obj 'arg value))))
    ((_ name (constructor-name arg ...) pred (var get set) ...)
     (begin
       (define tmp (class Object
                     (constructor (lambda (self arg ...)
                                    (begin
                                      (set-obj! self 'arg arg)
                                      ...)))
                     (toString (lambda (self) 
                                 (symbol->string name)))))
        (define (constructor-name arg ...)
          (new tmp arg ...))
        (define (pred obj)
           (instanceof tmp obj))
        (begin (define-record-type "field" var get set)
               ...)))))

The problem is that constructor is JS function and it got renamed, so another example of dumb symbol rename that failed. This will need to wait for refactor of syntax-rules and adding expantion time for proper handling of LIPS constructs that create new scope variables like let and in this case object methods.

[jcubic]

The solution would be to have a deep first macro expander.