X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FScheme79asm%2FCompiler.pm;h=7bb912189374cbe980a92841efab05177c7bfcbc;hb=fe1c44b35d67e5054f8a6a8d5a76d8e3be91616d;hp=f4762623584a2e34e8a6adb5d63eed69d1642429;hpb=ab8f838ff57d83083716775abf1c121430da5e5e;p=app-scheme79asm.git

diff --git a/lib/App/Scheme79asm/Compiler.pm b/lib/App/Scheme79asm/Compiler.pm
index f476262..7bb9121 100644
--- a/lib/App/Scheme79asm/Compiler.pm
+++ b/lib/App/Scheme79asm/Compiler.pm
@@ -6,7 +6,7 @@ use warnings;
 use parent qw/Exporter/;
 
 our @EXPORT_OK = qw/pretty_print/;
-our $VERSION = 0.004;
+our $VERSION = '0.005';
 
 use Carp qw/croak/;
 use Data::Dumper qw/Dumper/;
@@ -106,7 +106,7 @@ sub new {
 	my %self = (
 		symbols => ['', '', 'T'],
 		nsymbols => 3,
-		symbol_map => {}
+		symbol_map => {},
 	);
 	bless \%self, $class;
 }
@@ -187,12 +187,12 @@ sub process_toplevel {
 		} elsif ($func eq 'LAMBDA') {
 			my $func_name = $expr->cdr->car;
 			my $func_args = $expr->cdr->cdr->car;
-			my $func_body = $expr->cdr->cdr->cdr->car;
+			my $func_body = $expr->cdr->cdr->cdr->car; ## no critic (ProhibitLongChainsOfMethodCalls)
 			[PROC => $self->process_proc($func_name, $func_args, $func_body, $env)]
 		} elsif ($func eq 'IF') {
 			my ($if_cond, $if_then, $if_else) =
 			  map { $self->process_toplevel($_, $env) }
-			  ($expr->cdr->car, $expr->cdr->cdr->car, $expr->cdr->cdr->cdr->car);
+			  ($expr->cdr->car, $expr->cdr->cdr->car, $expr->cdr->cdr->cdr->car); ## no critic (ProhibitLongChainsOfMethodCalls)
 			[IF => [LIST => $if_else, $if_then], $if_cond]
 		} else {
 			$self->process_funcall($expr->car, $expr->cdr, $env)