Preliminary syntax ducking.
This commit is contained in:
parent
396e2d9896
commit
e6d798bc2a
6 changed files with 43 additions and 9 deletions
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue