fix paths

dev-stylish
Matthew Butterick 6 years ago
parent a313dacae4
commit f1ef2eeabe

@ -96,7 +96,7 @@ Intractable problem; unavoidable limitation.
(lexer-maker #:command-char #\◊) (lexer-maker #:command-char #\◊)
(fallback))] (fallback))]
[(drracket:indentation) [(drracket:indentation)
(dynamic-require 'pollen/private/mode-indentation 'determine-spaces)] (dynamic-require 'pollen/private/external/mode-indentation 'determine-spaces)]
[else (fallback)])))))) [else (fallback)]))))))
(module at-reader racket/base (module at-reader racket/base

@ -10,7 +10,7 @@
"splice.rkt" "splice.rkt"
"../setup.rkt" "../setup.rkt"
"../core.rkt" "../core.rkt"
(prefix-in doclang: "doclang-raw.rkt")) (prefix-in doclang: "external/doclang-raw.rkt"))
(provide (except-out (all-from-out racket/base) #%module-begin) (provide (except-out (all-from-out racket/base) #%module-begin)
(rename-out [pollen-module-begin #%module-begin])) (rename-out [pollen-module-begin #%module-begin]))

@ -213,7 +213,7 @@
[TEMPLATE-PATH (->string template-path)]) [TEMPLATE-PATH (->string template-path)])
#'(begin #'(begin
(require (for-syntax racket/base) (require (for-syntax racket/base)
pollen/private/include-template pollen/private/external/include-template
pollen/cache pollen/cache
pollen/private/log pollen/private/log
pollen/pagetree pollen/pagetree

@ -1,7 +1,7 @@
#lang at-exp racket/base #lang at-exp racket/base
(require (for-syntax racket/base racket/syntax pollen/setup) scribble/core scribble/manual scribble/private/manual-sprop scribble/decode scribble/html-properties racket/runtime-path racket/format "../private/manual-history.rkt" pollen/setup) (require (for-syntax racket/base racket/syntax pollen/setup) scribble/core scribble/manual scribble/private/manual-sprop scribble/decode scribble/html-properties racket/runtime-path racket/format "../private/external/manual-history.rkt" pollen/setup)
(provide (all-defined-out) (all-from-out racket/runtime-path "../private/manual-history.rkt")) (provide (all-defined-out) (all-from-out racket/runtime-path "../private/external/manual-history.rkt"))
(define-runtime-path mb-css "mb.css") (define-runtime-path mb-css "mb.css")

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require rackunit pollen/private/output racket/port) (require rackunit pollen/private/external/output racket/port)
(define-syntax-rule (check-output outputter string) (define-syntax-rule (check-output outputter string)
(check-equal? (with-output-to-string (λ () outputter)) string)) (check-equal? (with-output-to-string (λ () outputter)) string))

@ -86,7 +86,7 @@ if zero is False:
(define-values (pyg-in pyg-out pyg-pid pyg-err pyg-proc) (define-values (pyg-in pyg-out pyg-pid pyg-err pyg-proc)
(values #f #f #f #f #f)) (values #f #f #f #f #f))
(define-runtime-path pipe.py "../private/pipe.py") (define-runtime-path pipe.py "../private/external/pipe.py")
(define start (define start
(let ([start-attempted? #f]) (let ([start-attempted? #f])

Loading…
Cancel
Save