remove problems with simple node names

18 years ago · a11ba63928
2 changed files with 4 additions and 3 deletions
--- a/src/frontend/com_fft.c
+++ b/src/frontend/com_fft.c
@ -166,7 +166,7 @@ com_fft(wordlist *wl)
            ngood++;
        }
    }
-    free_pnode(first_name);
+
    if (!ngood) {
       return;
    }
@ -240,7 +240,7 @@ com_fft(wordlist *wl)
    
    tfree(tdvec);
    tfree(fdvec);    
-    
+    free_pnode(first_name);    
 }


--- a/src/frontend/spec.c
+++ b/src/frontend/spec.c
@ -188,7 +188,7 @@ com_spec(wordlist *wl)
            ngood++;
        }
    }
-    free_pnode(first_name);
+/*    free_pnode(first_name);  h_vogt 081206 */
    if (!ngood) {
       tfree(win);
       return;
@ -272,6 +272,7 @@ com_spec(wordlist *wl)
    tfree(dc);
    tfree(tdvec);
    tfree(fdvec);
+    free_pnode(first_name);

 #ifdef KEEPWINDOW
    f = alloc(struct dvec);