From 246dbbd2c7a27751964e974babfc964a8ec9c87b Mon Sep 17 00:00:00 2001
From: Luke Patmore <lpatmore@gmx.se>
Date: Mon, 16 Jun 2014 12:19:33 -0700
Subject: [PATCH] Fixed wthp ap.c macro expansion

---
 gen164/6/ap.c | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/gen164/6/ap.c b/gen164/6/ap.c
index 873ae0534..fc1acd811 100644
--- a/gen164/6/ap.c
+++ b/gen164/6/ap.c
@@ -183,11 +183,12 @@
               u2_rx(wir_r, q_gen),
               u2_bc(wir_r, c3__zpzp, u2_nul));
   }
-#if 0
-  _open_do_pq(wthp)   //  ?-
+  _open_do_pq(wthp)  //  ?-
   {
     if ( (u2_nul == q_gen) ) {
-      return u2_bc(wir_r, c3__zpfs, u2_rx(wir_r, p_gen));
+      return u2_bc(wir_r, c3__zpfs,
+                          u2_bc(wir_r, c3__cnzz,
+                                       u2_rx(wir_r, p_gen)));
     }
     else {
       u2_noun iq_gen = u2_h(q_gen);
@@ -205,7 +206,6 @@
          _open_in_wthp(wir_r, p_gen, tq_gen));
     }
   }
-#endif
   _open_do_p(wtpm)    //  ?&
   {
     if ( (u2_nul == p_gen) ) {
@@ -753,9 +753,7 @@
 	_open_pqr (wtsg);
         _open_p   (wtzp);
         _open_p   (wtbr);
-
-        /* _open_pq  (wthp); */  //buggered
-
+	_open_pq  (wthp);
         _open_pq  (wtgr);
         _open_pqr (wtls);
         _open_pqr (wtkt);