[A68-RECUTILS][COMMITTED] rec-parser.a68: properly recognize space after + in "rec parse field value"

[Jose E. Marchesi]

---
 src/rec-parser.a68 | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/rec-parser.a68 b/src/rec-parser.a68
index 1fac021..e9e568e 100644
--- a/src/rec-parser.a68
+++ b/src/rec-parser.a68
@@ -426,12 +426,11 @@ BEGIN STRING str;
               THEN str := str[: UPB str - 1]
               ELSE c := rec parser getc (parser);
                    IF c = "+"
-                   THEN IF rec parser getc (parser) = " "
-                        THEN str +:= newline char
-                        ELSE # End of field value. #
-                             res := FALSE;
-                             error
-                        FI
+                   THEN # Skip blank after continuation line + #
+                        IF c := rec parser getc (parser);
+                           c /= " "
+                        THEN rec parser ungetc (parser, c) FI;
+                        str +:= newline char
                    ELSE # End of field value.  #
                         rec parser ungetc (parser, c);
                         done
-- 
2.30.2