~ chicken-core (chicken-5) 657179e0b8a91a4b327700030cac50eb57606326

commit 657179e0b8a91a4b327700030cac50eb57606326
Author:     felix <felix@y.(none)>
AuthorDate: Sat Feb 20 11:43:40 2010 +0100
Commit:     felix <felix@y.(none)>
CommitDate: Sat Feb 20 11:43:40 2010 +0100

    added mappings for core units to setup.defaults

diff --git a/setup-api.scm b/setup-api.scm
index 9802b2e9..112664f5 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -417,7 +417,8 @@
 (define create-directory/parents
   (let ()
     (define (verb dir)
-      (when (setup-verbose-mode) (printf "  creating directory `~a'~%~!" dir)) )
+      (when (setup-verbose-mode)
+	(printf "  mkdir ~a~%~!" dir)) )
     (if *windows*
         (lambda (dir)
           (verb dir)
diff --git a/setup.defaults b/setup.defaults
index 313c15fc..779a4cbe 100644
--- a/setup.defaults
+++ b/setup.defaults
@@ -7,3 +7,10 @@
 (server
  (location "http://galinha.ucpel.tche.br/cgi-bin/henrietta")
  (transport http))
+
+(map
+ (data-structures 
+  extras files foreign irregex lolevel ports tcp utils
+  posix regex setup-api setup-download
+  srfi-1 srfi-4 srfi-13 srfi-14 srfi-18 srfi-69 
+  ->) )