Fix little speed difference bugs

1 files changed, 8 insertions, 4 deletions

diff --git a/turbo/vehicles.scm b/turbo/vehicles.scm
index 68d6ced..940011e 100644
--- a/turbo/vehicles.scm
+++ b/turbo/vehicles.scm
@@ -18,8 +18,9 @@
 	    set-vehicle-active!
 	    vehicle-hitbox
 	    vehicle-safety-distance?
-	    vehicle-speed-diff
-	    vehicle-move!))
+	    vehicle-speed-
+	    vehicle-move!
+	    vehicle=))
 
 (define vehicle-height 45)
 (define vehicle-length 100)
@@ -49,8 +50,8 @@
     (> (abs (- vehicle2-x vehicle1-x))
        (+ (* 3 vehicle-length)))))
 
-(define (vehicle-speed-diff vehicle1 vehicle2)
-  (abs (- (vehicle-speed vehicle1) (vehicle-speed vehicle2))))
+(define (vehicle-speed- vehicle1 vehicle2)
+  (- (vehicle-speed vehicle1) (vehicle-speed vehicle2)))
 
 (define (vehicle-move! vehicle translation)
   (set-vehicle-position!
@@ -59,3 +60,6 @@
 
 (define (vehicle-inactive? vehicle)
   (not (vehicle-active? vehicle)))
+
+(define (vehicle= vehicle1 vehicle2)
+  (= (vehicle-id vehicle1) (vehicle-id vehicle2)))