create the addon dir if it doesn't exist yet

original commit: 88baea6ccad3737cad06af7dfc65bed7a3903dcf
2014-10-10 11:55:57 -05:00 · 2014-10-10 11:55:57 -05:00 · 2a4d132559
commit 2a4d132559
parent 0ee4ed12d1
1 changed files with 2 additions and 0 deletions
--- a/pkgs/scribble-pkgs/scribble-lib/scribble/lncs/lang.rkt
+++ b/pkgs/scribble-pkgs/scribble-lib/scribble/lncs/lang.rkt
@ -66,6 +66,8 @@
  (define site "ftp.springer.de")
  (define path "pub/tex/latex/llncs/latex2e")
  (define file "llncs2e.zip")
+  (unless (directory-exists? (find-system-path 'addon-dir))
+    (make-directory (find-system-path 'addon-dir)))
  (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)