6 lines
191 B
Racket
6 lines
191 B
Racket
#lang racket/base
|
|
(require syntax/stx)
|
|
(provide (all-defined-out))
|
|
|
|
(define (stx-cadr stx) (car (stx-cdr stx)))
|
|
(define (stx-andmap f . stx-lsts) (apply andmap f (map syntax->list stx-lsts))) |