All: remove slurp-do, use str around slurp instead.

1 files changed, 2 insertions, 13 deletions

diff --git a/c/step8_macros.c b/c/step8_macros.c
index 23afc33..97da0ec 100644
--- a/c/step8_macros.c
+++ b/c/step8_macros.c
@@ -227,7 +227,7 @@ MalVal *EVAL(MalVal *ast, Env *env) {
         }
     }
 }
-    
+
 // print
 char *PRINT(MalVal *exp) {
     if (mal_error) {
@@ -308,20 +308,9 @@ void init_repl_env() {
     }
     _ref("slurp", slurp, 1);
 
-    MalVal *slurp_do(MalVal *path) {
-        assert_type(path, MAL_STRING, "slurp of non-string");
-        char *data = slurp_raw(path->val.string),
-             *wrapped_data;
-        if (!data || mal_error) { return NULL; }
-        wrapped_data = g_strdup_printf("(do %s)", data);
-        free(data);
-        return malval_new_string(wrapped_data);
-    }
-    _ref("slurp-do", slurp_do, 1);
-
     RE(repl_env, "", "(def! not (fn* (a) (if a false true)))");
     RE(repl_env, "",
-       "(def! load-file (fn* (f) (eval (read-string (slurp-do f)))))");
+       "(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))");
 }
 
 int main(int argc, char *argv[])