Fix erroneous newline when sending notifications.

This commit is contained in:
Dominik Pantůček 2024-07-02 20:21:33 +02:00
parent bc5db8db99
commit 1840f5675b
6 changed files with 1 additions and 16 deletions

View file

@ -135,18 +135,12 @@
res))))))
(define (print-duck-signature sig)
;;(print sig)
(let* ((curry-depth (get-curry-depth sig))
(name (get-signature-name sig))
(nameline (format " ~A~A" (make-string curry-depth #\() name))
(spaceline (make-string (add1 (string-length nameline)) #\space))
(args (gather-signature-arguments sig))
(eargs (expand-signature-arguments args)))
;;(print " curry depth = " curry-depth)
;;(print " name = " name)
;;(print " args = " args)
;;(printf " eargs = ~S" eargs)
;;(newline)
(if (null? eargs)
(print nameline ")")
(let loop ((args eargs)