mbutterick
/
sugar
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

string it

Browse Source
dev-refac-2020
Matthew Butterick 6 years ago
parent f6b3399ba1
commit 9ecad9391c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
sugar/unstable/stub.rkt
Unescape Escape View File

@ -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))]))
Write Preview
Loading…
Cancel
Save