diff options
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 1a4aa55a..519f31dd 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -264,12 +264,12 @@ freeVarUsage([.,vars,body],env) == op := u.op op in '(QUOTE GO function) => free op = "LAMBDA" => - bound := UNIONQ(bound, second u) + bound := setUnion(bound, second u) for v in CDDR u repeat free := freeList(v,bound,free,e) free op = "PROG" => - bound := UNIONQ(bound, second u) + bound := setUnion(bound, second u) for v in CDDR u | cons? v repeat free := freeList(v,bound,free,e) free |