madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Implement recursion

Browse source
This commit is contained in:
madmaurice 2021-04-02 02:46:14 +02:00
parent 65f17aba82
commit 59610c58a1
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/Minilisp.pm
View file

@ -362,7 +362,12 @@ sub macro_defun {
return sub { return sub {
my $ctx = shift; my $ctx = shift;
my $fn = $body->($ctx); my $fn;
my $self = sub {
return $fn->(@_);
};
$ctx->{$ident->{value}} = $self;
$fn = $body->($ctx);
$ctx->{$ident->{value}} = $fn; $ctx->{$ident->{value}} = $fn;
return $fn; return $fn;
} }