diff options
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r-- | src/interp/i-eval.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot index 652818fb..32b55375 100644 --- a/src/interp/i-eval.boot +++ b/src/interp/i-eval.boot @@ -248,7 +248,7 @@ evalForm(op,opName,argl,mmS) == form := dc='local => --[fun,:form] atom fun => - fun in $localVars => ['SPADCALL,:form,fun] + isLocallyBound fun => ['SPADCALL,:form,fun] [fun,:form,NIL] ['SPADCALL,:form,fun] dc is ["__FreeFunction__",:freeFun] => @@ -321,7 +321,7 @@ getArgValueOrThrow(x, type) == getArgValue(x,type) or throwKeyedMsg("S2IC0007",[type]) getMappingArgValue(a,t,m is ['Mapping,:ml]) == - (una := getUnname a) in $localVars => + isLocallyBound(una := getUnname a) => $genValue => name := get(una,'name,$env) a.0 := name |