twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Make some edits.

Browse Source
This commit is contained in:
Scott Richmond 2023-10-13 18:18:05 -04:00
parent 7f0415954c
commit 3b5a789333
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ludus/interpreter_new.clj
View File

@ -5,7 +5,7 @@
[ludus.scanner :as s])) [ludus.scanner :as s]))
(def source (def source
"(1 2) "(1, 2)
" "
) )

2
src/ludus/turtle-graphics.clj → temp/turtle-graphics.clj
View File

@ -36,7 +36,7 @@
heading (:heading prev) heading (:heading prev)
unit (heading->vec heading) unit (heading->vec heading)
move (scale unit steps) move (scale unit steps)
curr (update prev :postion #(add % move))] curr (update prev :postion #(add % move))]
(swap! path #(conj % curr)))) (swap! path #(conj % curr))))
(defn back [steps] (forward (* -1 steps))) (defn back [steps] (forward (* -1 steps)))