Update prefix to use special prims

bsaleil · Jun 15, 2018 · 1485d4a · 1485d4a
1 parent a524d80
commit 1485d4a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git 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
@@ -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)