brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Start work on nice signature printing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-04 23:16:22 +02:00
parent 0c5ee13aab
commit 8e08e4bd07
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/duck-extract.scm
View file

@ -43,6 +43,9 @@
dt) dt)
" "))) " ")))
(define (print-duck-signature sig)
(print " " sig))
(define (print-duck-module sec) (define (print-duck-module sec)
(print "## " (cadr sec) " [module]") (print "## " (cadr sec) " [module]")
(newline) (newline)
@ -72,7 +75,7 @@
(newline) (newline)
(print "### " (cadr sec) " [procedure]") (print "### " (cadr sec) " [procedure]")
(newline) (newline)
(print " " (cons (cadr sec) (cadddr sec))) (print-duck-signature (cons (cadr sec) (cadddr sec)))
(newline) (newline)
(print-duck-text (caddr sec))) (print-duck-text (caddr sec)))