From a2f330a9c11a7adf9180bcea139941c810bd18c2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 15 Aug 2011 09:58:21 -0600 Subject: [PATCH] fix lncs and jfp class file download original commit: 26fe665dd795c9d365fad1bad9fcc6b125c14f5b --- collects/scribble/jfp/lang.rkt | 2 ++ collects/scribble/lncs/lang.rkt | 2 ++ 2 files changed, 4 insertions(+) diff --git a/collects/scribble/jfp/lang.rkt b/collects/scribble/jfp/lang.rkt index 9ea1d97c..3ee36659 100644 --- a/collects/scribble/jfp/lang.rkt +++ b/collects/scribble/jfp/lang.rkt @@ -7,6 +7,7 @@ setup/main-collects "../private/defaults.rkt" net/ftp + racket/file (for-syntax scheme/base)) (provide (except-out (all-from-out scribble/doclang) #%module-begin) (all-from-out scribble/jfp) @@ -48,5 +49,6 @@ (define c (ftp-establish-connection site 21 "anonymous" "user@racket-lang.org")) (ftp-cd c path) (let-values ([(base name dir?) (split-path cls-file)]) + (make-directory* base) (ftp-download-file c base file)) (ftp-close-connection c)) diff --git a/collects/scribble/lncs/lang.rkt b/collects/scribble/lncs/lang.rkt index c65b8f74..bfde172f 100644 --- a/collects/scribble/lncs/lang.rkt +++ b/collects/scribble/lncs/lang.rkt @@ -1,6 +1,7 @@ #lang racket/base (require scribble/doclang scribble/core + racket/file (except-in scribble/base author) (prefix-in s/b: scribble/base) scribble/decode @@ -65,6 +66,7 @@ (log-error (format "Downloading via ftp://~a/~a/~a..." site path file)) (define c (ftp-establish-connection site 21 "anonymous" "user@racket-lang.org")) (ftp-cd c path) + (make-directory* (find-system-path 'temp-dir)) (ftp-download-file c (find-system-path 'temp-dir) file) (ftp-close-connection c) (define z (build-path (find-system-path 'temp-dir) file))