Aughhhh scribble and its location-propagation

2013-04-30 15:57:02 -04:00 · 2013-04-30 15:57:02 -04:00 · f5f2f08f41
parent 01f36b9030
commit f5f2f08f41
1 changed files with 4 additions and 1 deletions
--- a/marketplace/scribblings/prelude.inc
+++ b/marketplace/scribblings/prelude.inc
@ -10,6 +10,9 @@
  (lambda (stx)
    (syntax-case stx ()
      [(_ (t a ...) d desc ...)
-       #`(defthing #:kind "type" t #,(syntax/loc #'d (All (a ...) d)) desc ...)]
+       #`(defthing #:kind "type" t
+;; This is in column zero because scribble is overscrupulous about location preservation.
+#,(quasisyntax/loc #'d (All (a ...) d))
+	   desc ...)]
      [(_ t d desc ...)
       #`(defthing #:kind "type" t d desc ...)])))