diff options
Diffstat (limited to 'src/boot/ast.boot')
| -rw-r--r-- | src/boot/ast.boot | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 76616c22..d8eedae2 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1015,8 +1015,12 @@ shoeCompTran1 x == $locVars := [y for y in $locVars | not symbolMember?(y,newbindings)] x -- literal vectors. - x is ['vector,['LIST,:args]] => (x.op := 'VECTOR; x.args := args; x) - x is ['vector,'NIL] => (x.op := 'VECTOR; x.args := nil; x) + x is ['vector,elts] => + x.op := 'VECTOR + do + elts is 'NIL => x.args := nil + x.args := shoeCompTran1 elts.args -- elts.op is LIST + x x is ['%Namespace,n] => n is "DOT" => "*PACKAGE*" ["FIND-PACKAGE",symbolName n] |