avoid intermediate flonum allocation (#1150)

mighty-gerbils · Mar 6, 2024 · 3a1c402 · 3a1c402
1 parent 5e248cc
commit 3a1c402
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/std/net/httpd/logger.ss b/src/std/net/httpd/logger.ss
@@ -70,7 +70,7 @@
         (using (req :- http-request)
           (let* ((wr 0)
                  ;; timestamp
-                 (wr (fx+ wr (writer.write-digits (exact (floor ts)))))
+                 (wr (fx+ wr (writer.write-digits (##flonum->fixnum ts))))
                  (wr (fx+ wr (writer.write-char #\space)))
                  ;; client IP
                  (wr (fx+ wr (let (ip (car req.client))