From 1c26cf2405abb86676bc9b215d00019929020263 Mon Sep 17 00:00:00 2001
From: Benjamin Vedder <benjamin@vedder.se>
Date: Sun, 3 Apr 2022 15:02:26 +0200
Subject: [PATCH] Always use float in sleep

---
 lispBM/lispif_vesc_dynamic_loader.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lispBM/lispif_vesc_dynamic_loader.c b/lispBM/lispif_vesc_dynamic_loader.c
index 86979321..7a11fb18 100644
--- a/lispBM/lispif_vesc_dynamic_loader.c
+++ b/lispBM/lispif_vesc_dynamic_loader.c
@@ -72,7 +72,7 @@ static const char* functions[] = {
 "(map-rec f (cons (f (car lst) (car ys)) res) (cdr lst) (cdr ys))))))"
 "(map-rec f nil x y)))",
 
-"(defun sleep (seconds) (yield (* seconds 1000000)))",
+"(defun sleep (seconds) (yield (* seconds 1000000.0)))",
 
 "(defun filter (f lst)"
 "(let ((filter-rec (lambda (f lst ys)"