From bf2a1d2399ee9e694e49b9739746871f11c7bbfc Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 1 Aug 2008 14:24:00 -0500
Subject: [PATCH] golden-section: <golden-section> word

---
 extra/golden-section/golden-section.factor | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/extra/golden-section/golden-section.factor b/extra/golden-section/golden-section.factor
index 05e7f68d0a..8d1e6b49d6 100644
--- a/extra/golden-section/golden-section.factor
+++ b/extra/golden-section/golden-section.factor
@@ -39,16 +39,15 @@ IN: golden-section
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+: <golden-section> ( -- gadget )
+  <cartesian>
+    {  600 600 }       >>pdim
+    { -400 400 }       x-range
+    { -400 400 }       y-range
+    [ golden-section ] >>action ;
+
 : golden-section-window ( -- )
-    [
-      <cartesian>
-        {  600 600 }       >>pdim
-        { -400 400 }       x-range
-        { -400 400 }       y-range
-        [ golden-section ] >>action
-      "Golden Section" open-window
-    ]
-  with-ui ;
+  [ <golden-section> "Golden Section" open-window ] with-ui ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!