From 4435374ddc9d1b6520a288cee39542046f9e6df3 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 18 Jul 2026 20:32:35 +0300
Subject: [PATCH] ctrf: Small improvements

---
 retropikzel/ctrf.scm     | 3 ++-
 retropikzel/ctrf.sld     | 3 +--
 retropikzel/ctrf/VERSION | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/retropikzel/ctrf.scm b/retropikzel/ctrf.scm
index 0387885..a00058d 100644
--- a/retropikzel/ctrf.scm
+++ b/retropikzel/ctrf.scm
@@ -1,7 +1,8 @@
 (define-syntax ctrf-runner
   (syntax-rules ()
     ((_)
-     (let ((any->string
+     (let ((time-s (lambda () (current-second)))
+           (any->string
              (lambda (any)
                (let ((port (open-output-string)))
                  (display any port)
diff --git a/retropikzel/ctrf.sld b/retropikzel/ctrf.sld
index 8c2a1e2..aa84612 100644
--- a/retropikzel/ctrf.sld
+++ b/retropikzel/ctrf.sld
@@ -36,8 +36,7 @@
     (racket (begin (define implementation-name "racket")))
     (sagittarius (begin (define implementation-name "sagittarius")))
     (skint (begin (define implementation-name "skint")))
-    (stklos (begin (define implementation-name "stklos"))
-            (export ctrf-runner))
+    (stklos (begin (define implementation-name "stklos")))
     (tr7 (begin (define implementation-name "tr7")))
     (ypsilon (begin (define implementation-name "ypsilon")))
     (else (begin (define implementation-name "unknown"))))
diff --git a/retropikzel/ctrf/VERSION b/retropikzel/ctrf/VERSION
index 23aa839..0495c4a 100644
--- a/retropikzel/ctrf/VERSION
+++ b/retropikzel/ctrf/VERSION
@@ -1 +1 @@
-1.2.2
+1.2.3