string it

6 years ago · 9ecad9391c
parent f6b3399ba1
commit 9ecad9391c
1 changed files with 1 additions and 1 deletions
--- 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))]))