File: genrcpsr.c-01.v6.23-bgfx.diff

package info (click to toggle)
python-clips 1.0.7.348%2Bclips-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 2,376 kB
  • ctags: 2,544
  • sloc: ansic: 17,065; python: 5,668; sh: 20; makefile: 12
file content (22 lines) | stat: -rw-r--r-- 870 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
--- ../clipssrc_orig/genrcpsr.c	Mon Jun 16 20:35:00 2003
+++ ../clipssrc/genrcpsr.c	Wed May 31 15:40:25 2006
@@ -283,6 +283,19 @@
    actions = ParseProcActions(theEnv,"method",readSource,
                               &DefgenericData(theEnv)->GenericInputToken,params,wildcard,
                               NULL,NULL,&lvars,NULL);
+
+   /*===========================================================*/
+   /* Check for the closing right parenthesis of the defmethod. */
+   /*===========================================================*/
+
+   if ((DefgenericData(theEnv)->GenericInputToken.type != RPAREN) && /* DR0872 */
+       (actions != NULL))
+     {
+      DeleteTempRestricts(theEnv,params);
+      ReturnPackedExpression(theEnv,actions);
+      goto DefmethodParseError;
+     }
+
    if (actions == NULL)
      {
       DeleteTempRestricts(theEnv,params);