1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
--- ../clipssrc_orig/dffnxpsr.c Mon May 31 11:06:00 2004
+++ ../clipssrc/dffnxpsr.c Wed May 31 15:38:28 2006
@@ -165,6 +165,34 @@
actions = ParseProcActions(theEnv,"deffunction",readSource,
&DeffunctionData(theEnv)->DFInputToken,parameterList,wildcard,
NULL,NULL,&lvars,NULL);
+
+ /*=============================================================*/
+ /* Check for the closing right parenthesis of the deffunction. */
+ /*=============================================================*/
+
+ if ((DeffunctionData(theEnv)->DFInputToken.type != RPAREN) && /* DR0872 */
+ (actions != NULL))
+ {
+ SyntaxErrorMessage(theEnv,"deffunction");
+
+ ReturnExpression(theEnv,parameterList);
+ ReturnPackedExpression(theEnv,actions);
+
+ if (overwrite)
+ {
+ dptr->minNumberOfParameters = owMin;
+ dptr->maxNumberOfParameters = owMax;
+ }
+
+ if ((dptr->busy == 0) && (! overwrite))
+ {
+ RemoveConstructFromModule(theEnv,(struct constructHeader *) dptr);
+ RemoveDeffunction(theEnv,dptr);
+ }
+
+ return(TRUE);
+ }
+
if (actions == NULL)
{
ReturnExpression(theEnv,parameterList);
|
