0
@@ -88,12 +88,18 @@ forms(Ast = {float, _, _}) ->
0
 forms(Ast = {atom, _, _}) ->
0
   Ast;
0
   
0
-%% Strings and regular expressions
0
+%% Constants
0
+forms({constant, Line, Name}) ->
0
+  {tuple, Line, [{atom, Line, constant}, {atom, Line, Name}]};
0
+  
0
+%% Strings
0
 forms({string, Line, String}) ->
0
   {tuple, Line, [
0
     {atom, Line, string},
0
     {bin, Line, [{bin_element, Line, {string, Line, String}, default, default}]}
0
   ]};
0
+  
0
+%% Regexes
0
 forms({regexp, Line, Pattern}) ->
0
   {tuple, Line, [
0
     {atom, Line, regexp}, 

0
@@ -25,6 +25,8 @@ funcall(Receiver, to_internal, []) ->
0
       reia_erl:e2r(Receiver)
0
   end;
0
 
0
+funcall(Receiver = {constant, Name}, Method, Arguments) ->
0
+  apply(Name, Method, Arguments);
0
 funcall(Receiver, Method, Arguments) when is_integer(Receiver) or is_float(Receiver) ->
0
   'Numeric':funcall(Receiver, Method, silly_list_hack(Arguments));
0
 funcall(Receiver, Method, Arguments) when is_atom(Receiver) ->
0
@@ -44,7 +46,7 @@ funcall(Receiver = {lambda, _}, Method, Arguments) ->
0
 funcall(Receiver = {regexp, _}, Method, Arguments) ->
0
   'Regex':funcall(Receiver, Method, silly_list_hack(Arguments));
0
 funcall(_, _, _) ->
0
-  throw(unknown_receiver).
0
+  throw({error, unknown_receiver}).
0
   
0
 %%  
0
 %% Funcalls that take blocks

0
@@ -146,6 +146,7 @@ max_expr -> tuple      : '$1'.
0
 max_expr -> dict       : '$1'.
0
 max_expr -> binary     : '$1'.
0
 max_expr -> atom       : '$1'.
0
+max_expr -> constant   : '$1'.
0
 max_expr -> lambda     : '$1'.
0
 max_expr -> case_expr  : '$1'.
0
 max_expr -> if_expr    : '$1'.