32 lines
695 B
Racket
32 lines
695 B
Racket
#lang racket/base
|
|
|
|
;; Common helper functions
|
|
|
|
(provide
|
|
expand-expr
|
|
;; (-> Syntax Syntax)
|
|
;; Call local expand for an expression context with an empty list of stop-ids
|
|
|
|
quoted-stx-value?
|
|
;; (-> Any (U #f Syntax))
|
|
;; If the argument is a syntax object representing a quoted datum `v`,
|
|
;; return `v`.
|
|
;; Otherwise, return #f.
|
|
)
|
|
|
|
(require
|
|
(for-template (only-in typed/racket/base quote)))
|
|
|
|
;; =============================================================================
|
|
|
|
(define (expand-expr stx)
|
|
(local-expand stx 'expression '()))
|
|
|
|
(define (quoted-stx-value? stx)
|
|
(and
|
|
(syntax? stx)
|
|
(syntax-case stx (quote)
|
|
[(quote v)
|
|
(syntax-e #'v)]
|
|
[else #f])))
|