Respect $, when joining, and set $, when cardinal starts

Signed-off-by: Ted Reed <ted.reed@gmail.com>

cardinal.pir

@@ -49,6 +49,10 @@ object.
     cardinalmeta = get_hll_global ['CardinalObject'], '!CARDINALMETA'
     compilerclass = cardinalmeta.'new_class'('cardinal::Compiler', 'parent'=>'PCT::HLLCompiler')
 
+    $P2 = new 'CardinalString'
+    $P2 = ""
+    set_hll_global '$,', $P2
+
     compiler = compilerclass.'new'()
     compiler.'language'('cardinal')
     $P0 = get_hll_namespace ['cardinal';'Grammar']

src/classes/Array.pir

@@ -610,13 +610,20 @@ Returns a string comprised of all of the list, separated by the string SEPARATOR
 
 .sub 'join' :method
     .param string sep :optional
+    .param int sep_given :opt_flag
     .local string res
     .local string tmp
     .local int len
     .local int i
-
+    
     res = ""
+
+    if sep_given goto skip_setting_sep
 
+    $P0 = get_hll_global '$,'
+    sep = $P0
+
+  skip_setting_sep: 
     len = elements self
     if len == 0 goto done