История изменений

Исправление monk, 17.04.20 12:25 (текущая версия) :

Можно удалить всю гигиену из определения:

(define-syntax (define/mongo-struct stx)
  (syntax-case stx ()
    [(_ VAR COLNAME)
     #`#,(datum->syntax stx (list* 'define-mongo-struct #'VAR (parse (data #'COLNAME))))]))

Но внутри макросов будет работать кривовато (как в Common Lisp).

Исходная версия monk, 17.04.20 12:24:

Можно удалить всю гигиену из определения:

(define-syntax (define/mongo-struct stx)
  (syntax-case stx ()
    [(_ VAR COLNAME)
     #`#,(datum->syntax stx (list* 'define-mongo-struct #'VAR (parse (data #'COLNAME))))]))