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

Finish ducking util-tag.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-06 19:44:06 +02:00
parent e6d798bc2a
commit 3833196533
5 changed files with 14 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/duck-extract.scm
View file

@ -173,6 +173,11 @@
(newline)
(print "### " (cadr sec) " [syntax]")
(newline)
(let loop ((patterns (cadddr sec)))
(when (not (null? patterns))
(print " " (car patterns))
(loop (cdr patterns))))
(newline)
(print-duck-text (caddr sec)))
(define (print-duck-unknown sec)