interpreter: minor fixes, changes to the main binary to actually interpret some source code

lib/compiler/scope_analysis.ml

@@ -86,7 +86,7 @@ let resolve_set tbl env sym expr =
    If a symbol is accessed in a lambda body, that is fine, since that computation
    is delayed, but for top-level forms that are directly executed we must be strict.
 
-   The analyze function is strict by default, until it encounters a lambda, at which
+   This function is strict by default, until it encounters a lambda, at which
    point it switches to resolving against all symbols.
    global_tbl is a table that contains ALL defined symbols,
    tbl is a table that contains symbols defined only until this point.

lib/interpreter/main.ml

@@ -66,7 +66,7 @@ let interpret program global_syms =
   let count = Compiler.Scope_analysis.SymbolTable.cardinal global_syms in
   let globals : runtime_value array = Array.make count Nil in
   
-  Ok (interpret_one (Begin program) [] globals)
+  interpret_one (Begin program) [] globals