string it

dev-refac-2020
Matthew Butterick 6 years ago
parent f6b3399ba1
commit 9ecad9391c

@ -35,5 +35,5 @@
(define-syntax (unfinished stx) (define-syntax (unfinished stx)
(syntax-case stx () (syntax-case stx ()
[(_) [(_)
(with-syntax ([ID-UNFINISHED (format-id stx "~a:~a:~a" (syntax-source stx) (syntax-line stx) (syntax->datum #'unfinished))]) (with-syntax ([ID-UNFINISHED (format-id stx "~a:~a:~a" (path->string (syntax-source stx)) (syntax-line stx) (syntax->datum #'unfinished))])
#'(error 'ID-UNFINISHED))])) #'(error 'ID-UNFINISHED))]))
Loading…
Cancel
Save