[WWcvs] pg: Correctly create Formula returning List when a list has formula

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Correctly create Formula returning List when a list has formula
entries.

Modified Files:
--------------
    pg/lib/Value:
        List.pm

Revision Data
-------------
Index: List.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/List.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -Llib/Value/List.pm -Llib/Value/List.pm -u -r1.17 -r1.18
--- lib/Value/List.pm
+++ lib/Value/List.pm
@@ -30,8 +30,8 @@
   $p = [$p,@_] if (ref($p) ne 'ARRAY' || scalar(@_) > 0);
   my $type;
   foreach my $x (@{$p}) {
-    $isFormula = 1 if Value::isFormula($x);
     $x = Value::makeValue($x) unless ref($x);
+    $isFormula = 1 if Value::isFormula($x);
     if (Value::isValue($x)) {
       if (!$type) {$type = $x->type}
         else {$type = 'unknown' unless $type eq $x->type}