Remove uninteresting times from 'with-timer' profile func

* test/profile.scm (with-times): remove cutime, cstime
spk121 · Jan 19, 2021 · 909c7e6 · 909c7e6
1 parent 6f329e5
commit 909c7e6
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/test/profile.scm b/test/profile.scm
@@ -40,12 +40,9 @@
   (let* ((start-time (times))
          (ret (thunk))
          (end-time (times)))
-    ;; (write (utf8->string ret)) (newline)
-    (format #t "clock: ~A, utime: ~A, cutime ~A, cstime ~A~%"
+    (format #t "clock: ~A, utime: ~A~%"
             (- (tms:clock end-time) (tms:clock start-time))
-            (- (tms:utime end-time) (tms:utime start-time))
-            (- (tms:cutime end-time) (tms:cutime start-time))
-            (- (tms:cstime end-time) (tms:cstime start-time)))))
+            (- (tms:utime end-time) (tms:utime start-time)))))
 
 (define (test-bv-thunk bv N)
   (lambda ()