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

diff --git a/lib/App/Scheme79asm/Compiler.pm b/lib/App/Scheme79asm/Compiler.pm
index 7bb9121..d9a420f 100644
--- a/lib/App/Scheme79asm/Compiler.pm
+++ b/lib/App/Scheme79asm/Compiler.pm
@@ -106,7 +106,7 @@ sub new {
 	my %self = (
 		symbols => ['', '', 'T'],
 		nsymbols => 3,
-		symbol_map => {},
+		symbol_map => {T => 2},
 	);
 	bless \%self, $class;
 }
@@ -117,6 +117,9 @@ sub process_quoted {
 		[LIST => 0]
 	} elsif (scalarp $expr) {
 		$expr = uc $expr;
+		if ($expr eq 'NIL') {
+			return [LIST => 0]
+		}
 		if (!exists $self->{symbol_map}{$expr}) {
 			$self->{symbol_map}{$expr} = $self->{nsymbols};
 			$self->{nsymbols}++;