From 7640e616bb1bc6a5354df1ca0dcb69036ced0177 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 13 Dec 2007 20:47:42 -0600 Subject: [PATCH] add define-form --- extra/furnace/furnace.factor | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/extra/furnace/furnace.factor b/extra/furnace/furnace.factor index 756fa13d1c..c63f107ff7 100644 --- a/extra/furnace/furnace.factor +++ b/extra/furnace/furnace.factor @@ -20,6 +20,13 @@ SYMBOL: template-path : define-action ( word params -- ) f define-authenticated-action ; +: code>quotation ( word/quot -- quot ) + dup word? [ 1quotation ] when ; + +: define-form ( formword actionword params -- ) + dupd define-action + swap code>quotation "form-quotation" set-word-prop ; + : define-redirect ( word quot -- ) "action-redirect" set-word-prop ;