Skip to content

Commit

Permalink
Fix load-system error for the first time (tak)
Browse files Browse the repository at this point in the history
Calling `tak` in `coalton` form causes undefined error when the
bechmark modules are loaded for the fist time, since the definition
of `tak` in Coalton comes afterwards.  Reloading will succeeds, but
it is bothersome.
  • Loading branch information
shirok authored and stylewarning committed Oct 2, 2024
1 parent cf4b3a2 commit 0420c09
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions benchmarks/gabriel-benchmarks/tak.lisp
Original file line number Diff line number Diff line change
@@ -1,14 +1,14 @@
;;;; gabriel-benchmarks/tak.lisp
;;;;
;;;;
;;;;

(cl:in-package #:coalton-benchmarks)

(define-benchmark tak ()
(declare (optimize speed))
(loop :repeat 1000
:do (with-benchmark-sampling
(coalton:coalton (coalton-benchmarks/native:tak 18 12 6))))
(coalton-benchmarks/native:tak 18 12 6)))
(report trivial-benchmark::*current-timer*))

(define-benchmark tak-lisp ()
Expand Down

0 comments on commit 0420c09

Please sign in to comment.