From 1485d4ad407cf070a312148272a3c296ab30306e Mon Sep 17 00:00:00 2001
From: bsaleil <baptiste.saleil@gmail.com>
Date: Fri, 15 Jun 2018 19:31:26 -0400
Subject: [PATCH] Update prefix to use special prims
---
tools/benchtimes/prefix/LC.scm | 8 ++++----
tools/benchtimes/prefix/LCf64v.scm | 8 ++++----
2 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/tools/benchtimes/prefix/LC.scm b/tools/benchtimes/prefix/LC.scm
index 4a42bff..6ee7603 100644
--- a/tools/benchtimes/prefix/LC.scm
+++ b/tools/benchtimes/prefix/LC.scm
@@ -75,13 +75,13 @@
r)))
(define (##lc-exec-stats thunk)
- (let* ((at-start (gambit$$##process-statistics))
+ (let* ((at-start (##process-statistics))
(result (thunk))
- (at-end (gambit$$##process-statistics)))
+ (at-end (##process-statistics)))
(define (get-info msg idx)
(cons msg
- (- (gambit$$##f64vector-ref at-end idx)
- (gambit$$##f64vector-ref at-start idx))))
+ (- (f64vector-ref at-end idx)
+ (f64vector-ref at-start idx))))
(list
result
(get-info "User time" 0)
diff --git a/tools/benchtimes/prefix/LCf64v.scm b/tools/benchtimes/prefix/LCf64v.scm
index 0b36670..10a4056 100644
--- a/tools/benchtimes/prefix/LCf64v.scm
+++ b/tools/benchtimes/prefix/LCf64v.scm
@@ -80,13 +80,13 @@
r)))
(define (##lc-exec-stats thunk)
- (let* ((at-start (gambit$$##process-statistics))
+ (let* ((at-start (##process-statistics))
(result (thunk))
- (at-end (gambit$$##process-statistics)))
+ (at-end (##process-statistics)))
(define (get-info msg idx)
(cons msg
- (- (gambit$$##f64vector-ref at-end idx)
- (gambit$$##f64vector-ref at-start idx))))
+ (- (f64vector-ref at-end idx)
+ (f64vector-ref at-start idx))))
(list
result
(get-info "User time" 0)