May have fixed up ResizableStringArray usage

src/nqr/Actions.pm

@@ -453,8 +453,12 @@ method term:sym<forint>($/) {
 # Need to figure out how to make this ResizableStringArray:
 method term:sym<string_constant>($/) { make $<string_constant>.ast; }
 method string_constant($/) {
-    my $past := $<quote>.ast;
-    $past.returns('String');
+    #my $past := $<quote>.ast;
+    my $past := PAST::Op.new( :name('!stringarray'),
+                              :pasttype('call'),
+                              :node($/) );
+    $past.push($<quote>.ast);
+    #$past.returns('String');
     make $past;
 }
 

src/nqr/Runtime.pm

@@ -22,6 +22,11 @@
       for (@args) { @ans[@ans] := $_; }
       @ans;
     }
+    my sub stringarray (*@args) {
+      my @ans := pir::new("ResizableStringArray");
+      for (@args) { @ans[@ans] := ~$_; }
+      @ans;
+    }
 
     ######################################################
     ## GSL functions with . in the names in the R wrapper:
@@ -89,6 +94,8 @@
         set_global '!intarray', $P0
         $P0 = find_lex 'floatarray'
         set_global '!floatarray', $P0
+        $P0 = find_lex 'stringarray'
+        set_global '!stringarray', $P0
         $P0 = find_lex 'whichmax'
         set_global 'which.max', $P0
         $P0 = find_lex 'whichmin'

t/00-sanity.t

@@ -1,5 +1,5 @@
 
-say("1..33")
+print("1..33")
 
 # Basic assignment
 a <- 1

t/nqr.t

@@ -1,4 +1,4 @@
-say("1..3")
+print("1..3")
 
 a <- 1