Implement proper reading of "nil" in REPL

src/compiler.cpp

@@ -211,6 +211,7 @@ Result<Expression> Compiler::compile_expr(Context& context, Value& expr) {
     case Tag::String:
       return compile_constant(context, expr);
     case Tag::Nil:
+      return compile_constant(context, expr);
     case Tag::Float:
     case Tag::Syntax:
     case Tag::Array:

src/reader.cpp

@@ -51,6 +51,9 @@ Result<Value> Reader::read_one() {
   } else if (match("true") || match("false")) {
     auto res = read_bool();
     if (res.has_value()) return res;
+  } else if (match("nil")) {
+    auto res = read_nil();
+    if (res.has_value()) return res;
   } else if (is_string_start()) {
     return read_string();
   } else if (match('(')) {
@@ -157,6 +160,16 @@ Result<Value> Reader::read_bool() {
   return ERROR(ReadError);
 }
 
+Result<Value> Reader::read_nil() {
+  if (match("nil")) {
+    forward(3);
+    if (!is_separator(get()) && !is_eof()) return ERROR(ReadError);
+    return Value(TRY(Nil::create()));
+  }
+
+  return ERROR(ReadError);
+}
+
 Result<Value> Reader::read_string() {
   if (!match('"')) return ERROR(ReadError);
   size_t start = position_.offset + 1;

src/reader.hpp

@@ -33,6 +33,7 @@ class Reader {
   Result<Value> read_number();
   Result<Value> read_symbol();
   Result<Value> read_bool();
+  Result<Value> read_nil();
 
   char32_t get(size_t offset = 0);
   bool match(const char* str);