Attached is a patch to port lowdown to CHICKEN 6. This depends on fancypants,
which I've sent an earlier email about.
The patch doesn't bump the tag/release info version.
Diego
From 3f12d195725daf8b9d3654f812a3ffaec598a94c Mon Sep 17 00:00:00 2001
From: "Diego A. Mundo" <[email protected]>
Date: Fri, 4 Sep 2026 00:53:13 -0400
Subject: [PATCH] Port to CHICKEN 6
---
backwards-compatible-module.scm | 2 +-
lowdown-extra.scm | 2 +-
lowdown-impl.scm | 7 ++++++-
lowdown.scm | 7 ++++++-
tests/run.scm | 6 +++---
5 files changed, 17 insertions(+), 7 deletions(-)
diff --git a/backwards-compatible-module.scm b/backwards-compatible-module.scm
index 45114f7..fe71461 100644
--- a/backwards-compatible-module.scm
+++ b/backwards-compatible-module.scm
@@ -11,5 +11,5 @@ (define-syntax backwards-compatible-module
"-"))
name))
,@(cddr x))))
- (chicken-5
+ ((or chicken-5 chicken-6)
`(module ,@(cdr x)))))))
diff --git a/lowdown-extra.scm b/lowdown-extra.scm
index ec6e27b..3fd13d0 100644
--- a/lowdown-extra.scm
+++ b/lowdown-extra.scm
@@ -17,7 +17,7 @@
lowdown-lolevel
clojurian-syntax
(prefix fancypants fancypants-)))
- (chicken-5
+ ((or chicken-5 chicken-6)
(import (chicken base)
(srfi 1)
(comparse)
diff --git a/lowdown-impl.scm b/lowdown-impl.scm
index 95951a0..924df98 100644
--- a/lowdown-impl.scm
+++ b/lowdown-impl.scm
@@ -12,7 +12,7 @@
comparse
clojurian-syntax
sxml-transforms))
- (chicken-5
+ ((or chicken-5 chicken-6)
(import (chicken base)
(chicken irregex)
(srfi 1)
@@ -23,6 +23,11 @@
(comparse)
(sxml-transforms))))
+(cond-expand
+ (chicken-6
+ (import (only (scheme base) make-parameter)))
+ (else))
+
(define (node el parser)
(sequence* ((content parser))
(result (if (list? content)
diff --git a/lowdown.scm b/lowdown.scm
index c6e89c9..c271366 100644
--- a/lowdown.scm
+++ b/lowdown.scm
@@ -22,7 +22,7 @@ (module lowdown
comparse
sxml-transforms
lowdown-lolevel))
- (chicken-5
+ ((or chicken-5 chicken-6)
(import (chicken base)
(chicken irregex)
(scheme)
@@ -32,6 +32,11 @@ (module lowdown
(lowdown lolevel)
(sxml-transforms))))
+(cond-expand
+ (chicken-6
+ (import (only (scheme base) make-parameter)))
+ (else))
+
(define (maybe-ref key alist)
(and-let* ((value (alist-ref key alist)))
(and (not (and (not (car value))
diff --git a/tests/run.scm b/tests/run.scm
index 92822b9..e52c7d8 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -1,7 +1,7 @@
(cond-expand
(chicken-4
(use posix data-structures))
- (chicken-5
+ ((or chicken-5 chicken-6)
(import (chicken pretty-print)
(chicken process)
(chicken process-context)
@@ -12,7 +12,7 @@
(print "#!/bin/sh")
(print "#|")
(print "exec " (cond-expand
- (chicken-5 (executable-pathname))
+ ((or chicken-5 chicken-6) (executable-pathname))
(chicken-4 "csi"))
" -s \"$0\" \"$@\"")
(print "|#")
@@ -21,7 +21,7 @@
,(cond-expand
(chicken-4
`(use lowdown))
- (chicken-5
+ ((or chicken-5 chicken-6)
`(import (chicken process-context)
lowdown)))
(call-with-input-file (car (command-line-arguments)) markdown->html)))))
--
2.47.3
