distorted.lisp, hosts.lisp: Reverse entries for haze and gretsch.

[zones] / distorted.lisp

diff --git a/distorted.lisp b/distorted.lisp
index 43fcca2..8f25953 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -229,9 +229,12 @@
   (evolution :alias evo)
 
   ;; Switches.
-  (tp0 (safe :addr tp0.safe))
-  (tp1 (safe :addr tp1.safe))
-  (tp2 (safe :addr tp2.safe))
+  (grigsby :alias tp0)
+  (grigsby (safe :addr grigsby.safe))
+  (carling :alias tp1)
+  (carling (safe :addr carling.safe))
+  (tritan :alias tp2)
+  (tritan (safe :addr tritan.safe))
 
   ;; Wired ethernet.
   (unsafe :net unsafe)
@@ -320,7 +323,9 @@
   (crybaby :addr crybaby.unsafe)
   (lespaul :addr lespaul.safe)
   (invader :addr invader.safe)
-  (marauder :addr marauder.safe))
+  (marauder :addr marauder.safe)
+  (haze :addr haze.unsafe)
+  (gretsch :addr gretsch.unsafe))
 
 (defzone nicko.org
   (richmond :addr richmond.jump))