~ chicken-core (master) df9a3a747a20f4155eac92b1a7d88cef3c6c522f
commit df9a3a747a20f4155eac92b1a7d88cef3c6c522f
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 24 20:04:46 2026 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 24 20:04:46 2026 +0200
change banner
(ASCII art created by "qu1j0t3")
diff --git a/banner.scm b/banner.scm
index 314a8402..ae5b4ebb 100644
--- a/banner.scm
+++ b/banner.scm
@@ -2,8 +2,11 @@
(define-constant +banner+ #<<EOF
-CHICKEN
-(c)2000-2007 Felix L. Winkelmann, (c)2008 The CHICKEN Team
-
+ ____,
+ / ^ > CHICKEN
+ /| ____ (c)2000-2007 Felix L. Winkelmann, (c)2008 The CHICKEN Team
+ ||/ \\ XXX
+ || ||
+ \\____/YYY
EOF
)
diff --git a/csi.scm b/csi.scm
index 84abdd0f..cac938da 100644
--- a/csi.scm
+++ b/csi.scm
@@ -148,8 +148,11 @@ EOF
EOF
) ) ;| <--- for emacs font-lock
-(define (print-banner)
- (print +banner+ (chicken-version #t) "\n"))
+(define (print-banner) ; duplicate of one in support.scm
+ (let ((v (string-split (chicken-version #t) "\n")))
+ (print (string-translate* +banner+
+ `(("XXX" ,@(cadr v))
+ ("YYY" ,@(string-translate* (substring (car v) 9) '(("." . " . ")))))))))
;;; Chop terminating separator from pathname:
diff --git a/support.scm b/support.scm
index f5346f33..d18989ce 100644
--- a/support.scm
+++ b/support.scm
@@ -1750,8 +1750,13 @@
;;; Print version/usage information:
(define (print-version #!optional b) ; Used only in batch-driver.scm
- (when b (print* +banner+))
- (print (chicken-version #t)) )
+ (when b (print-banner)))
+
+(define (print-banner) ; duplicate of one in csi.scm
+ (let ((v (string-split (chicken-version #t) "\n")))
+ (print (string-translate* +banner+
+ `(("XXX" ,@(cadr v))
+ ("YYY" ,@(string-translate* (substring (car v) 9) '(("." . " . ")))))))))
;; Used only in batch-driver.scm, but it seems to me this should be moved
;; to chicken.scm, as that's the only place this belongs.
Trap