Preliminary syntax ducking.

This commit is contained in:
Dominik Pantůček 2023-07-06 19:37:48 +02:00
parent 396e2d9896
commit e6d798bc2a
6 changed files with 43 additions and 9 deletions

View file

@ -169,6 +169,12 @@
(newline)
(print-duck-text (caddr sec)))
(define (print-duck-syntax sec)
(newline)
(print "### " (cadr sec) " [syntax]")
(newline)
(print-duck-text (caddr sec)))
(define (print-duck-unknown sec)
(print sec))
@ -181,6 +187,7 @@
((VAR) (print-duck-variable (car mod)))
((PAR) (print-duck-parameter (car mod)))
((FUN) (print-duck-procedure (car mod)))
((STX) (print-duck-syntax (car mod)))
(else (print-duck-unknown (car mod)))))
(loop (cdr mod)))))