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 e45047aa..ab87e808 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -787,10 +787,10 @@ bfMDef (op,args,body) == bfTupleP args => rest args [args] [gargl,sgargl,nargl,largl]:=bfGargl argl - sb:=[[i,:j] for i in nargl for j in sgargl] - body:= SUBLIS(sb,body) + sb := [[i,:j] for i in nargl for j in sgargl] + body := applySubst(sb,body) sb2 := [["CONS",["QUOTE",i],j] for i in sgargl for j in largl] - body := ["SUBLIS",["LIST",:sb2],["QUOTE",body]] + body := ["applySubst",["LIST",:sb2],["QUOTE",body]] lamex:= ["MLAMBDA",gargl,body] def:= [op,lamex] [shoeComp def,:[:shoeComps bfDef1 d for d in $wheredefs]] |