~ chicken-core (chicken-5) 25a1527bda59dec2e0d51ed6ca2144669e94bcf4

commit 25a1527bda59dec2e0d51ed6ca2144669e94bcf4
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sun Aug 13 13:18:53 2017 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Aug 15 18:37:38 2017 +1200

    Make print-call-chain match the declared type in types.db
    
    It is declared not to return anything (void), but it takes some effort
    to return the call chain, resulting in a type warning.
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/library.scm b/library.scm
index 07bebe1f..a99ed6e4 100644
--- a/library.scm
+++ b/library.scm
@@ -4439,9 +4439,7 @@ EOF
   (##sys#check-output-port port #t 'print-call-chain)
   (##sys#check-fixnum start 'print-call-chain)
   (##sys#check-string header 'print-call-chain)
-  (let ((ct (get-call-chain start thread)))
-    (##sys#really-print-call-chain port ct header)
-    ct))
+  (##sys#really-print-call-chain port (get-call-chain start thread) header))
 
 
 ;;; Interrupt handling: