(resolve_expression): If the value of PLIST is a plist,

but the first element is not symbol, return 0.

diff --git a/src/input.c b/src/input.c
index 54f410f..1bdf74a 100644 (file)
--- a/src/input.c
+++ b/src/input.c
@@ -657,7 +657,7 @@ resolve_expression (MInputContext *ic, MPlist *plist)
     return 0;
   plist = MPLIST_PLIST (plist);
   if (! MPLIST_SYMBOL_P (plist))
-    return val;
+    return 0;
   op = MPLIST_SYMBOL (plist);
   plist = MPLIST_NEXT (plist);
   val = resolve_expression (ic, plist);