Text processing/2: Difference between revisions

Content added Content deleted

Inline

@@ Line 110: / Line 110: @@
     s = lf_q_text(l);
-    if (length(s) != 10 || character(s, 4) != '-' || character(s, 7) != '-') {
+    if (length(s) != 10 || s[4] != '-' || s[7] != '-') {
         error("bad date format");
     }
@@ Line 139: / Line 139: @@
         if (!trap(check_format, l)) {
             if (r_key(r, l_head(l))) {
-                v_text(cat3("duplicate ", l_head(l), " line\n"));
+                v_form("duplicate ~ line\n", l_head(l));
             } else {
                 integer i;