Source maps for atoms

src/compile.ls

@@ -33,9 +33,11 @@ string-to-self-producer = ->
         raw : "\"#{it}\""
   ]
 
-atom-to-estree = (env, { value : name }) ->
+atom-to-estree = (env, { value : name }:ast) ->
 
-  lit = ~> type : \Literal, value : it, raw : name
+  lit = ~>
+    type : \Literal value : it, raw : name
+    loc : ast.location
 
   switch name
   | \this  => type : \ThisExpression
@@ -47,6 +49,7 @@ atom-to-estree = (env, { value : name }) ->
       type  : \Literal
       value : Number name
       raw   : name
+      loc   : ast.location
     | looks-like-negative-number name
       type     : \UnaryExpression
       operator : \-
@@ -55,6 +58,7 @@ atom-to-estree = (env, { value : name }) ->
     | otherwise
       type : \Identifier
       name : name
+      loc  : ast.location
 
 atom-to-self-producer = ->
   type : \ObjectExpression

test.ls

@@ -1097,6 +1097,18 @@ test "multiple transform-macros are applied in order" ->
   esl "zero" transform-macros : [ wrap1, wrap2, wrap3 ]
     .. `@equals` "three(two(one(zero)));"
 
+test "identifier source map" ->
+  esl.source-map "x" filename : "test.esl"
+    ..`@equals` '{"version":3,"sources":["test.esl"],"names":["x"],"mappings":"AAAAA,C","sourcesContent":["x"]}'
+
+test "number literal source map" ->
+  esl.source-map "true" filename : "test.esl"
+    ..`@equals` '{"version":3,"sources":["test.esl"],"names":[],"mappings":"AAAA,I","sourcesContent":["true"]}'
+
+test "boolean literal source map" ->
+  esl.source-map "42" filename : "test.esl"
+    ..`@equals` '{"version":3,"sources":["test.esl"],"names":[],"mappings":"AAAA,E","sourcesContent":["42"]}'
+
 test "call expression source map" ->
   esl.source-map "(f a b)\n" filename : "test.esl"
-    ..`@equals` '{"version":3,"sources":["test.esl"],"names":[],"mappings":"CAAA,C,CAAA,E,CAAA,C","sourcesContent":["(f a b)\\n"]}'
+    ..`@equals` '{"version":3,"sources":["test.esl"],"names":["f","a","b"],"mappings":"AAACA,CAAD,CAAGC,CAAH,EAAKC,CAAL,C","sourcesContent":["(f a b)\\n"]}'