Skip to content

Commit

Permalink
Make sure that list() returns a List that is fully initialized and
Browse files Browse the repository at this point in the history
properly flattens.  (ash++ for noticing this)
  • Loading branch information
pmichaud committed Jan 21, 2010
1 parent 57a8065 commit 839da4d
Showing 1 changed file with 8 additions and 3 deletions.
11 changes: 8 additions & 3 deletions src/builtins/List.pir
Expand Up @@ -87,9 +87,14 @@ Creates a List from its arguments.
.namespace []
.sub '&list'
.param pmc args :slurpy
$P0 = new ['List']
setattribute $P0, '$!values', args
.return ($P0)
.local pmc list, gen, true
list = new ['List']
setattribute list, '$!values', args
gen = box 0
setattribute list, '$!gen', gen
true = get_hll_global ['Bool'], 'True'
setprop list, 'flatten', true
.return (list)
.end


Expand Down

0 comments on commit 839da4d

Please sign in to comment.