From: handa <handa>
Date: Wed, 25 Jan 2006 01:18:20 +0000 (+0000)
Subject: (resolve_expression): If the value of PLIST is a plist,
X-Git-Tag: REL-1-3-2~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c296d242e0265cc2a09378a9086c2f5878abbb26;p=m17n%2Fm17n-lib.git

(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
--- 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);