Quasiquote regression from 110.

The problem is that one-argument function calls like @(whatever arg) in
a quasiliteral being turned into sys:var items.

* parser.y (quasi_meta_helper): Remove bogus check on length.
The default case is now var, so the var_s check actually matters.
The integerp check for the argument of a var form didn't do
anything because the entire if statment conditionally selected a
useless goto. Removing it for consistent treatment of var items.

* tests/012/quasi.tl: Some new test cases involving @rest.
These new tests pass whether or not we have that integerp(second(obj))
test in the quasi_meta_helper function. Either way @rest and @@rest
produce the same thing.

1 files changed, 5 insertions, 5 deletions

diff --git a/parser.y b/parser.y
index bfa88a78..04be6aa7 100644
--- a/parser.y
+++ b/parser.y
@@ -1369,17 +1369,17 @@ static val quasi_meta_helper(val obj)
   if (integerp(obj) || symbolp(obj))
     goto var;
 
-  if (atom(obj) || length(obj) != two)
+  if (atom(obj))
     goto expr;
 
-  if (first(obj) == var_s && integerp(second(obj)))
+  if (first(obj) == var_s)
     goto var;
 
-var:
-  return rlcp_tree(cons(var_s, cons(obj, nil)), obj);
-
 expr:
   return rlcp(cons(expr_s, obj), obj);
+
+var:
+  return rlcp_tree(cons(var_s, cons(obj, nil)), obj);
 }
 
 static void misplaced_consing_dot_check(scanner_t *scanner, val term_atom_cons)