auto doc generation

src/parse.cpp

@@ -412,10 +412,10 @@ namespace Parser {
                 // arguments = arguments->value.pair.rest;
                 // if there is a docstring, use it
                 if (Memory::get_type(body->value.pair.first) == Lisp_Object_Type::String) {
-                    macro->value.function.docstring = body->value.pair.first->value.string;
+                    macro->docstring = body->value.pair.first->value.string;
                     body = body->value.pair.rest;
                 } else {
-                    macro->value.function.docstring = nullptr;
+                    macro->docstring = nullptr;
                 }
 
                 // we are now in the function body, just wrap it in an
@@ -424,6 +424,7 @@ namespace Parser {
                     Memory::get_or_create_lisp_object_symbol("begin"),
                     body);
 
+                inject_scl(macro);
                 // macro->value.function = function;
                 define_symbol(symbol_for_macro, macro, environment_for_macros);
 
@@ -567,7 +568,7 @@ namespace Parser {
         };
 
         if (f == NULL) {
-            printf("Error opening file!\n");
+            printf("Error opening .expanded file for writing!\n");
             exit(1);
         }