COMMON: fix call by parenthesis

Author: chrisws

samples/distro-examples/tests/call_tau.bas

@@ -19,4 +19,12 @@ tau.build_ta
 rem check system-variables
 predef.prsys
 
+x=PI
+foyer.name= "PI"
+tau.addRoom(foyer,x)
 
+sub addRoom(the_thing, d)
+  print the_thing.name, d
+end
+
+addRoom(foyer,x)

samples/distro-examples/tests/output/call_tau.out

@@ -11,3 +11,5 @@ message from tau
 [1,2,3,4]
 Predefined Variables
 PI     =3.14159265358979
+PI	3.14159265358979
+PI	3.14159265358979

samples/distro-examples/tests/tau.bas

@@ -2,6 +2,7 @@ Unit Tau
 Import TauChild
 
 Export expvar, foof, foop
+export addRoom
 export print_expvar, ta, build_ta, cerr
 
 expvar = "Tau's exported variable"
@@ -35,6 +36,10 @@ sub cerr
 	rte 2
 end
 
+sub addRoom(the_thing,d)
+  print the_thing.name,d
+end
+
 rem initialization
 ? "Tau::initilized"
 ?

src/common/scan.c

@@ -2546,10 +2546,14 @@ void comp_text_line(char *text) {
       if (udp > -1) {
         bc_add_extpcode(&comp_prog, comp_extproctable[udp].lib_id, 
                         comp_extproctable[udp].symbol_index);
-        bc_add_code(&comp_prog, kwTYPE_LEVEL_BEGIN);
         char *next = trim_empty_parentheses(comp_bc_parm);
-        comp_expression(next, 0);
-        bc_add_code(&comp_prog, kwTYPE_LEVEL_END);
+        if (comp_is_parenthesized(next)) {
+          comp_expression(next, 0);
+        } else {
+          bc_add_code(&comp_prog, kwTYPE_LEVEL_BEGIN);
+          comp_expression(next, 0);
+          bc_add_code(&comp_prog, kwTYPE_LEVEL_END);
+        }
       } else {
         udp = comp_udp_id(comp_bc_name, 1);
         if (udp == -1) {