From 8e08e4bd07a5c17e52015b5b8a2fd156cbb2cb71 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 4 Jul 2023 23:16:22 +0200 Subject: [PATCH] Start work on nice signature printing. --- src/duck-extract.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/duck-extract.scm b/src/duck-extract.scm index 6953a5c..30c83fd 100644 --- a/src/duck-extract.scm +++ b/src/duck-extract.scm @@ -43,6 +43,9 @@ dt) " "))) + (define (print-duck-signature sig) + (print " " sig)) + (define (print-duck-module sec) (print "## " (cadr sec) " [module]") (newline) @@ -72,7 +75,7 @@ (newline) (print "### " (cadr sec) " [procedure]") (newline) - (print " " (cons (cadr sec) (cadddr sec))) + (print-duck-signature (cons (cadr sec) (cadddr sec))) (newline) (print-duck-text (caddr sec)))