avoid a crash in directives

diff --git a/lang/pc/comp/def.c b/lang/pc/comp/def.c
index 861acc9..d1f3e9a 100644 (file)
--- a/lang/pc/comp/def.c
+++ b/lang/pc/comp/def.c
@@ -142,8 +142,9 @@ DoDirective(directive, nd, tp, scl, function)
                        break;
 
                default:
-                       crash("(DoDirective)");
-                       /* NOTREACHED */
+                       node_error(nd, "\"%s\" unknown directive",
+                                                       directive->id_text);
+                       return;
        }
 
        if( df = define(nd->nd_IDF, CurrentScope, kind) )       {