ctrf: Small improvements

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)

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"))))

retropikzel/ctrf/VERSION

@@ -1 +1 @@
-1.2.2
+1.2.3