From 3b5a78933391c9e7217834e45f3363a9b2cce777 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Fri, 13 Oct 2023 18:18:05 -0400 Subject: [PATCH] Make some edits. --- src/ludus/interpreter_new.clj | 2 +- {src/ludus => temp}/turtle-graphics.clj | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) rename {src/ludus => temp}/turtle-graphics.clj (97%) diff --git a/src/ludus/interpreter_new.clj b/src/ludus/interpreter_new.clj index cba232c..174531e 100644 --- a/src/ludus/interpreter_new.clj +++ b/src/ludus/interpreter_new.clj @@ -5,7 +5,7 @@ [ludus.scanner :as s])) (def source - "(1 2) + "(1, 2) " ) diff --git a/src/ludus/turtle-graphics.clj b/temp/turtle-graphics.clj similarity index 97% rename from src/ludus/turtle-graphics.clj rename to temp/turtle-graphics.clj index cd6f192..c698752 100644 --- a/src/ludus/turtle-graphics.clj +++ b/temp/turtle-graphics.clj @@ -36,7 +36,7 @@ heading (:heading prev) unit (heading->vec heading) move (scale unit steps) - curr (update prev :postion #(add % move))] + curr (update prev :postion #(add % move))] (swap! path #(conj % curr)))) (defn back [steps] (forward (* -1 steps)))