bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit a2f330a9c11a7adf9180bcea139941c810bd18c2
parent 2dcc9d11af93a265775f4480ed7ce893fd420dc4
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 15 Aug 2011 09:58:21 -0600

fix lncs and jfp class file download

original commit: 26fe665dd795c9d365fad1bad9fcc6b125c14f5b

Diffstat:
M
collects/scribble/jfp/lang.rkt
 | 
2
++
M
collects/scribble/lncs/lang.rkt
 | 
2
++

2 files changed, 4 insertions(+), 0 deletions(-)
diff --git 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
@@ -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))