gistfile1.txt

#lang racket
(require (for-syntax racket/list))
(define-syntax (foo stx)
  (define (quote-it stx) (list 'quote stx))
  (define name+xs (syntax->list stx))
  (define name (first name+xs)) ; unused (is foo)
  (define xs (rest name+xs))
  (define result-as-list (cons 'vector (map quote-it xs)))
  (datum->syntax stx result-as-list))

(foo x y z)

lang racket

(require (for-syntax racket/list))
(define-syntax (regs stx)
(define (quote-it stx) (list 'quote stx))
(define args (rest (syntax->list stx)))
(datum->syntax stx `(vector ,@(map quote-it args))))

(regs x y z)