Fix erroneous newline when sending notifications.
This commit is contained in:
parent
bc5db8db99
commit
1840f5675b
6 changed files with 1 additions and 16 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue