Retropikzel
/
scheme-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ctrf: Small improvements

This commit is contained in:
retropikzel 2026-07-18 20:32:35 +03:00
parent 3e69388c17
commit 4435374ddc
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
retropikzel/ctrf.scm
View File

@ -1,7 +1,8 @@
(define-syntax ctrf-runner (define-syntax ctrf-runner
(syntax-rules () (syntax-rules ()
((_) ((_)
(let ((any->string (let ((time-s (lambda () (current-second)))
(any->string
(lambda (any) (lambda (any)
(let ((port (open-output-string))) (let ((port (open-output-string)))
(display any port) (display any port)

3
retropikzel/ctrf.sld
View File

@ -36,8 +36,7 @@
(racket (begin (define implementation-name "racket"))) (racket (begin (define implementation-name "racket")))
(sagittarius (begin (define implementation-name "sagittarius"))) (sagittarius (begin (define implementation-name "sagittarius")))
(skint (begin (define implementation-name "skint"))) (skint (begin (define implementation-name "skint")))
(stklos (begin (define implementation-name "stklos")) (stklos (begin (define implementation-name "stklos")))
(export ctrf-runner))
(tr7 (begin (define implementation-name "tr7"))) (tr7 (begin (define implementation-name "tr7")))
(ypsilon (begin (define implementation-name "ypsilon"))) (ypsilon (begin (define implementation-name "ypsilon")))
(else (begin (define implementation-name "unknown")))) (else (begin (define implementation-name "unknown"))))

2
retropikzel/ctrf/VERSION
View File

@ -1 +1 @@
1.2.2 1.2.3