12 lines
244 B
Racket
12 lines
244 B
Racket
#lang scheme
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define honu-scheme-syntax 'honu-scheme-syntax)
|
|
|
|
(define (raw-scheme? stx)
|
|
(syntax-property stx honu-scheme-syntax))
|
|
|
|
(define (apply-scheme-syntax stx)
|
|
(syntax-property stx honu-scheme-syntax #t))
|