>From 4eb13b3d7ae3d29f93cf05a99bff72bbc37a1533 Mon Sep 17 00:00:00 2001
From: Christian Kellermann <address@hidden>
Date: Mon, 13 Apr 2015 12:13:55 +0200
Subject: [PATCH] Add debug build hint, register debugbuild feature

This will add ' ** DEBUGBUILD **' to the version line of the banner, as
in "Version 4.9.1 (rev 39b1a12) ** DEBUGBUILD **".

This patch also registers the 'debugbuild hint.
---
 library.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/library.scm b/library.scm
index fb85c86..1a5d2fa 100644
--- a/library.scm
+++ b/library.scm
@@ -3713,6 +3713,7 @@ EOF
 	 "Version " ##sys#build-version
 	 (if ##sys#build-branch (string-append " (" ##sys#build-branch ")") "")
 	 (if ##sys#build-id (string-append " (rev " ##sys#build-id ")") "")
+#+debugbuild " ** DEBUGBUILD ** "
 	 "\n"
 	 (get-config)
 	 (if (zero? (##sys#size spec))
@@ -3761,6 +3762,9 @@ EOF
 (when (##sys#fudge 39) (set! ##sys#features (cons #:cross-chicken ##sys#features)))
 (when (##sys#fudge 3) (set! ##sys#features (cons #:64bit ##sys#features)))
 
+#+debugbuild
+(set! ##sys#features (cons #:debugbuild ##sys#features))
+
 (set! ##sys#features
   (let ((major (##sys#string-append "chicken-" (##sys#number->string (##sys#fudge 41)))))
     (cons (##sys#->feature-id major)
-- 
1.9.2