From 56bb1604f0dd1baba733a6e49def22551022f8a2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 15 Jun 2008 18:29:10 -0500
Subject: [PATCH] Fix load errors
---
extra/html/templates/chloe/chloe-tests.factor | 6 +++---
extra/webapps/counter/counter.factor | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/extra/html/templates/chloe/chloe-tests.factor b/extra/html/templates/chloe/chloe-tests.factor
index 87ba37ed9e..4048836cfe 100644
--- a/extra/html/templates/chloe/chloe-tests.factor
+++ b/extra/html/templates/chloe/chloe-tests.factor
@@ -1,7 +1,7 @@
USING: html.templates html.templates.chloe
tools.test io.streams.string kernel sequences ascii boxes
-namespaces xml html.components
-splitting unicode.categories furnace ;
+namespaces xml html.components html.forms
+splitting unicode.categories furnace accessors ;
IN: html.templates.chloe.tests
[ f ] [ f parse-query-attr ] unit-test
@@ -160,7 +160,7 @@ TUPLE: person first-name last-name ;
[ ] [ begin-form ] unit-test
[ ] [
- H{ { "first-name" "RBaxter" } { "last-name" "Unknown" } } "person" set-value
+ <form> H{ { "first-name" "RBaxter" } { "last-name" "Unknown" } } >>values "person" set-value
] unit-test
[ "<table><tr><td>RBaxter</td><td>Unknown</td></tr></table>" ] [
diff --git a/extra/webapps/counter/counter.factor b/extra/webapps/counter/counter.factor
index da646fb76f..30c5d403de 100644
--- a/extra/webapps/counter/counter.factor
+++ b/extra/webapps/counter/counter.factor
@@ -1,6 +1,6 @@
USING: math kernel accessors http.server http.server.dispatchers
furnace furnace.actions furnace.sessions
-html.components html.templates.chloe
+html.components html.forms html.templates.chloe
fry urls ;
IN: webapps.counter