From 9ecad9391c5d1a552cae577aa96af34136e2be40 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 15 Nov 2018 18:54:59 -0800 Subject: [PATCH] string it --- sugar/unstable/stub.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sugar/unstable/stub.rkt b/sugar/unstable/stub.rkt index 0265841..43d04b0 100644 --- a/sugar/unstable/stub.rkt +++ b/sugar/unstable/stub.rkt @@ -35,5 +35,5 @@ (define-syntax (unfinished 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))])) \ No newline at end of file