summaryrefslogtreecommitdiff
path: root/scripts/main.scm
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/main.scm')
-rw-r--r--scripts/main.scm21
1 files changed, 13 insertions, 8 deletions
diff --git a/scripts/main.scm b/scripts/main.scm
index 779a351..1900911 100644
--- a/scripts/main.scm
+++ b/scripts/main.scm
@@ -1,11 +1,16 @@
(define a 0)
+(define b 0)
-(define update
- (lambda ()
- (set! a (+ a 1))
- ))
+(define (update)
+ (set! a (+ a 1))
+ (set! b (rl-load-texture "./assets/test.png"))
+ ;; Not displaying the next lines makes the crash take longer to happen
+ (display a)
+ (newline)
+ (display b)
+ (newline)
+ )
-(define draw
- (lambda ()
- (rl-draw-text (string-append (number->string a) " oi "))
- ))
+(define (draw)
+ (newline)
+ )