String type related bugfixes: neglecting to handle all three kinds in

some places. In particular, the test case

  echo : | ./txr -c '@a:@a' -

breaks because of neglected LIT in do_match_line.

* arith.c (tofloat, toint): Handle LIT type in switch.

* lib.c (ref, refset, replace, update): Handle LSTR type.

* match.c (do_match_line, do_output_line): Handle LSTR and LIT
objects in switch.

1 files changed, 4 insertions, 0 deletions

diff --git a/match.c b/match.c
index 25b7c4db..acd82b1d 100644
--- a/match.c
+++ b/match.c
@@ -1234,6 +1234,8 @@ static val do_match_line(match_line_ctx *c)
       }
       break;
     case STR:
+    case LSTR:
+    case LIT:
       {
         val newpos;
         if (!match_str(c->dataline, elem, c->pos)) {
@@ -1767,6 +1769,8 @@ static void do_output_line(val bindings, val specline, val filter, val out)
       }
       break;
     case STR:
+    case LSTR:
+    case LIT:
       put_string(elem, out);
       break;
     case 0: