aboutsummaryrefslogtreecommitdiff
path: root/src/interp/compiler.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r--src/interp/compiler.boot12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index f412c078..bcc37574 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -922,15 +922,15 @@ compWhere: (%Form,%Mode,%Env) -> %Maybe %Triple
compWhere([.,form,:exprList],m,eInit) ==
$insideExpressionIfTrue: local:= false
$insideWhereIfTrue: local:= true
- e:= eInit
- u:=
+ e := eInit
+ u :=
for item in exprList repeat
[.,.,e]:= comp(item,$EmptyMode,e) or return "failed"
u="failed" => return nil
- $insideWhereIfTrue:= false
- [x,m,eAfter]:= comp(macroExpand(form,eBefore:= e),m,e) or return nil
- eFinal:=
- del:= deltaContour(eAfter,eBefore) => addContour(del,eInit)
+ $insideWhereIfTrue := false
+ [x,m,eAfter] := comp(macroExpand(form,eBefore := e),m,e) or return nil
+ eFinal :=
+ del := deltaContour(eAfter,eBefore) => addContour(del,eInit)
eInit
[x,m,eFinal]