carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-11 20:49:05 +03:00
Code Issues Projects Releases Wiki Activity

Use & instead of ref.

Browse Source
This commit is contained in:
Erik Svedäng 2017-09-04 11:40:55 +02:00
parent 271756de57
commit f463fa4e44
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/game.carp
View File

@ -68,13 +68,13 @@
(defn handle-events [app rend]
(let [event (SDL_Event_init)]
(while (SDL_PollEvent (address event))
(let [et (event-type (ref event))]
(cond (= et SDL_QUIT) (quit (ref app))
(= et SDL_KEYDOWN) (let [key (event-keycode (ref event))]
(let [et (event-type &event)]
(cond (= et SDL_QUIT) (quit &app)
(= et SDL_KEYDOWN) (let [key (event-keycode &event)]
(cond
(= key SDLK_ESCAPE) (quit (ref app))
(println (ref"Unrecognized key."))))
(println (ref "Some other event happened...")))))))
(= key SDLK_ESCAPE) (quit &app)
(println &"Unrecognized key.")))
(println &"Some other event happened..."))))))
(defn main []
(let [app (app-init "~ CARP ~" 512 512)