madlisp/src/UserFunc.php

<?php
namespace MadLisp;

use Closure;

class UserFunc extends Func
{
    protected $ast;
    protected Env $tempEnv;
    protected Seq $bindings;

    public function __construct(Closure $closure, $ast, Env $tempEnv, Seq $bindings, bool $macro = false)
    {
        parent::__construct($closure, null, $macro);

        $this->ast = $ast;
        $this->tempEnv = $tempEnv;
        $this->bindings = $bindings;
    }

    public function getAst()
    {
        return $this->ast;
    }

    public function getBindings(): Seq
    {
        return $this->bindings;
    }

    public function getEnv(array $args)
    {
        $newEnv = new Env('apply', $this->tempEnv);

        $bindings = $this->bindings->getData();
        for ($i = 0; $i < count($bindings); $i++) {
            $newEnv->set($bindings[$i]->getName(), $args[$i] ?? null);
        }

        return $newEnv;
    }

    public function call(array $args)
    {
        return ($this->closure)(...$args);
    }
}