From 36e76ed714a9895ba1d32c97180f2f67e064ff44 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 13 May 2011 09:05:04 -0500 Subject: [PATCH] fix search path problem in scribble original commit: 0a0445692b5727e6cb0661035ada7f4da21d861d --- collects/scribble/private/defaults.rkt | 2 +- collects/scribble/private/manual-sprop.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scribble/private/defaults.rkt b/collects/scribble/private/defaults.rkt index 8da11ff0..05393d86 100644 --- a/collects/scribble/private/defaults.rkt +++ b/collects/scribble/private/defaults.rkt @@ -12,7 +12,7 @@ (cons new properties))) (define (scribble-file s) - (path->main-collects-relative (build-path (collection-path "scribble") s))) + (path->main-collects-relative (collection-file-path s "scribble"))) (define (add-defaults doc pfx styl extras version?) (struct-copy part doc [style (make-style (style-name (part-style doc)) diff --git a/collects/scribble/private/manual-sprop.rkt b/collects/scribble/private/manual-sprop.rkt index 80d7311d..10c6399c 100644 --- a/collects/scribble/private/manual-sprop.rkt +++ b/collects/scribble/private/manual-sprop.rkt @@ -10,6 +10,6 @@ (define-on-demand scheme-properties (let ([abs (lambda (s) - (path->main-collects-relative (build-path (collection-path "scribble") s)))]) + (path->main-collects-relative (collection-file-path s "scribble")))]) (list (make-css-addition (abs "racket.css")) (make-tex-addition (abs "racket.tex")))))