From 87f54f6de003167f7bf388232a827bbd01ba24b3 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Wed, 27 Apr 2016 09:09:46 +1200
Subject: [PATCH] Fixed bugs in c*, cmagsq

---
 examples/mandelbrot.4th | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/examples/mandelbrot.4th b/examples/mandelbrot.4th
index 2767738..254628c 100644
--- a/examples/mandelbrot.4th
+++ b/examples/mandelbrot.4th
@@ -1,7 +1,7 @@
 ( --- Complex integer arithmetic --- )
 
 : c* ( x1 y1 x2 y2 -- x3 y3 )
-        swap rot                ( x1 x2 y1 y2 )
+        swap -rot               ( x1 x2 y1 y2 )
         2dup * negate           ( x1 x2 y1 y2 -y1y2 )
         4 pick 4 pick * +       ( x1 x2 y1 y2 (x1x2-y1y2))
         4 roll 2 roll *         ( x2 y1 (x1x2-y1y2) x1y2 )
@@ -16,7 +16,7 @@
 
 : csq 2dup c* ;
 
-; cmagsq ( x1 y1 -- mag )
+: cmagsq ( x1 y1 -- mag )
         csq abs
 ;
 
-- 
2.20.1