From 4e1e14566943ec4574a498f54dd359bbe123826f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Jun 2008 03:40:05 -0500
Subject: [PATCH 1/3] Tweaking config some more

---
 .../concatenative/concatenative.factor        | 30 ++++++++++++++-----
 1 file changed, 22 insertions(+), 8 deletions(-)

diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index a4f826d7f6..6d65f10783 100644
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -63,19 +63,33 @@ TUPLE: factor-website < dispatcher ;
         { factor-website "page" } >>template
     test-db <alloy> ;
 
-: init-factor-website ( -- )
-    "factorcode.org" 25 <inet> smtp-server set-global
+SYMBOL: key-password
+SYMBOL: key-file
+SYMBOL: dh-file
+
+: common-configuration ( -- )
+    "concatenative.org" 25 <inet> smtp-server set-global
     "noreply@concatenative.org" lost-password-from set-global
     "website@concatenative.org" insomniac-sender set-global
     "slava@factorcode.org" insomniac-recipients set-global
-    init-factor-db
-    <factor-website> main-responder set-global ;
+    <factor-website> main-responder set-global
+    init-factor-db ;
+
+: init-testing ( -- )
+    "resource:extra/openssl/test/dh1024.pem" dh-file set-global
+    "resource:extra/openssl/test/server.pem" key-file set-global
+    "password" key-password set-global
+    common-configuration ;
+
+: init-production ( -- )
+    "/home/slava/cert/host.pem" key-file set-global
+    common-configuration ;
 
 : <factor-secure-config> ( -- config )
     <secure-config>
-        "resource:extra/openssl/test/server.pem" >>key-file
-        "resource:extra/openssl/test/dh1024.pem" >>dh-file
-        "password" >>password ;
+        key-file get >>key-file
+        dh-file get >>dh-file
+        key-password get >>password ;
 
 : <factor-website-server> ( -- threaded-server )
     <http-server>
@@ -83,7 +97,7 @@ TUPLE: factor-website < dispatcher ;
         8080 >>insecure
         8431 >>secure ;
 
-: start-factor-website ( -- )
+: start-website ( -- )
     test-db start-expiring
     test-db start-update-task
     http-insomniac

From ebb3423e4a5138c4d4985fd080278b298613a4b9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Jun 2008 03:53:16 -0500
Subject: [PATCH 2/3] Fix assocs.lib tests

---
 extra/assocs/lib/lib-tests.factor | 4 ++++
 extra/assocs/lib/lib.factor       | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)
 create mode 100644 extra/assocs/lib/lib-tests.factor

diff --git a/extra/assocs/lib/lib-tests.factor b/extra/assocs/lib/lib-tests.factor
new file mode 100644
index 0000000000..0bf8270088
--- /dev/null
+++ b/extra/assocs/lib/lib-tests.factor
@@ -0,0 +1,4 @@
+IN: assocs.lib.tests
+USING: assocs.lib tools.test vectors ;
+
+{ 1 1 } [ [ ?push ] histogram ] must-infer-as
diff --git a/extra/assocs/lib/lib.factor b/extra/assocs/lib/lib.factor
index 1c89c1eb16..14632df771 100755
--- a/extra/assocs/lib/lib.factor
+++ b/extra/assocs/lib/lib.factor
@@ -41,4 +41,4 @@ IN: assocs.lib
 : histogram ( assoc quot -- assoc' )
     H{ } clone [
         swap [ change-at ] 2curry assoc-each
-    ] keep ;
+    ] keep ; inline

From d5b56fc5bc88247af0b98337ee274d3e0dd0ef10 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 19 Jun 2008 19:11:07 -0500
Subject: [PATCH 3/3] builder.release.archive: temporary workaround for macosx
 dmg layout

---
 extra/builder/release/archive/archive.factor | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/extra/builder/release/archive/archive.factor b/extra/builder/release/archive/archive.factor
index 9b239da586..25153436e6 100644
--- a/extra/builder/release/archive/archive.factor
+++ b/extra/builder/release/archive/archive.factor
@@ -24,12 +24,23 @@ IN: builder.release.archive
 
 : windows-archive-cmd ( -- cmd ) { "zip" "-r" archive-name "factor" } ;
 
+! : macosx-archive-cmd ( -- cmd )
+!   { "hdiutil" "create"
+!               "-srcfolder" "factor"
+!               "-fs" "HFS+"
+!               "-volname" "factor"
+!               archive-name } ;
+
 : macosx-archive-cmd ( -- cmd )
+  { "mkdir" "dmg-root" }                         try-process
+  { "cp" "-r" "factor" "dmg-root" }              try-process
   { "hdiutil" "create"
-              "-srcfolder" "factor"
+              "-srcfolder" "dmg-root"
               "-fs" "HFS+"
               "-volname" "factor"
-              archive-name } ;
+              archive-name }          to-strings try-process
+  { "rm" "-rf" "dmg-root" }                      try-process
+  { "true" } ;
 
 : unix-archive-cmd ( -- cmd ) { "tar" "-cvzf" archive-name "factor" } ;