diff --git a/udelim/defaults.rkt b/udelim/defaults.rkt index 4e7f766..95cc9c1 100644 --- a/udelim/defaults.rkt +++ b/udelim/defaults.rkt @@ -24,5 +24,8 @@ (define-syntax (pass-through-one stx) (syntax-case stx () [(ptm e) #'e])) -(define-syntax #%cjk-corner-quotes (make-rename-transformer #'pass-through-one)) +;(define-syntax (#%cjk-corner-quotes) (make-rename-transformer #'pass-through-one)) +(define-syntax (#%cjk-corner-quotes stx) + (syntax-case stx () + [(ccq str) #'(pregexp str)])) diff --git a/udelim/udelim.scrbl b/udelim/udelim.scrbl index 364ad26..209db7f 100644 --- a/udelim/udelim.scrbl +++ b/udelim/udelim.scrbl @@ -74,7 +74,21 @@ In addition to simply being a nice additional option to make literal strings, it (open-input-string #<