Added a test for the lag command and started on the sample command

[pspp] / src / expr-evl.c

diff --git a/src/expr-evl.c b/src/expr-evl.c
index 15b4434c9bee0e3d789f56c4b1192e776ef37101..dc017a594b1ef5366c06600e1ed15121d1c24144 100644 (file)
--- a/src/expr-evl.c
+++ b/src/expr-evl.c
@@ -710,7 +710,8 @@ expr_evaluate (struct expression *e, struct ccase *c, union value *v)
            sp->f *= 60. * 60. * 24.;
          break;
        case OP_DATE_MOYR:
-         (--sp)->f = yrmoda (sp[1].f, sp[0].f, 1);
+          sp--;
+         sp->f = yrmoda (sp[1].f, sp[0].f, 1);
          if (sp->f != SYSMIS)
            sp->f *= 60. * 60. * 24.;
          break;
@@ -1351,12 +1352,6 @@ expr_evaluate (struct expression *e, struct ccase *c, union value *v)
        case OP_SENTINEL:
          goto finished;
 
-#if __CHECKER__
-         /* This case prevents Checker from choking. */
-       case 42000:
-         assert (0);
-#endif
-
        default:
 #if GLOBAL_DEBUGGING
          printf (_("evaluate_expression(): not implemented: %s\n"),