anchor.diff:  %%% -*- erlang-indent-level: 2 -*-
   %%%
  -%%%   Copyright 2014-2017 Mikael Pettersson
  +%%%   Copyright 2014-2022 Mikael Pettersson
   %%%
   %%%   Licensed under the Apache License, Version 2.0 (the "License");
   %%%   you may not use this file except in compliance with the License.
  
positive.code:   case AST of
      {'ES:CALL', Fun, Actuals} ->
        interpret_call(Fun, Actuals, Env);
      {'ES:DEFINE', Var, Expr} ->
        interpret_define(Var, Expr, Env);
      {'ES:GLOVAR', Var} ->
  
negative.code: 
  do_apply(FVal, Actuals) ->
    es_apply:applyN(FVal, Actuals).
  
  interpret_colon(M0, F0, A0, Env) ->
    M = interpret(M0, Env),
    F = interpret(F0, Env),
    A = interpret(A0, Env),
    fun M:F/A.
  
  interpret_define(Var, Expr, Env) ->
    %% This is restricted, by macro-expansion and parsing, to the top-level.
  