diff options
Diffstat (limited to 'src/boot/ast.boot')
| -rw-r--r-- | src/boot/ast.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 4a84bf87..8cee6417 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -364,7 +364,7 @@ bfSep(iters)== iters = nil => [[],[],[],[],[],[]] f := first iters r := bfSep rest iters - [append(i,j) for i in f for j in r] + [[:i,:j] for i in f for j in r] bfReduce(op,y)== a := @@ -597,7 +597,7 @@ defSheepAndGoatsList(x)== x = nil => [[],[],[]] [opassoc,defs,nondefs] := defSheepAndGoats first x [opassoc1,defs1,nondefs1] := defSheepAndGoatsList rest x - [append(opassoc,opassoc1),append(defs,defs1), append(nondefs,nondefs1)] + [[:opassoc,:opassoc1],[:defs,:defs1],[:nondefs,:nondefs1]] --% LET @@ -1236,7 +1236,7 @@ bfWhere (context,expr)== [opassoc,defs,nondefs] := defSheepAndGoats context a:=[[first d,second d,bfSUBLIS(opassoc,third d)] for d in defs] - $wheredefs:=append(a,$wheredefs) + $wheredefs := [:a,:$wheredefs] bfMKPROGN bfSUBLIS(opassoc,append!(nondefs,[expr])) --shoeReadLispString(s,n)== |