plt-web: fix 'abs handling in -l mode

2014-03-05 10:31:44 -07:00 · 2014-03-05 10:31:44 -07:00 · 38046d5018
commit 38046d5018
parent c16028b762
1 changed files with 2 additions and 2 deletions
--- a/pkgs/plt-web-pkgs/plt-web-lib/build.rkt
+++ b/pkgs/plt-web-pkgs/plt-web-lib/build.rkt
@ -63,8 +63,8 @@
                            [(local) (map (lambda (s)
                                            (list* (car s)
                                                   (url->string (path->url (build-path output-dir (car s))))
-                                                   (cons 'index
-                                                         (cddr s))))
+                                                   ;; Drop 'abs, if any, from (cddr s)
+                                                   '(index)))
                                          (registered-url-roots))]
                            [else (url-roots)])])
  (for ([extra (in-list extra-files)])