Fix erroneous newline when sending notifications.

src/duck-extract.scm

@@ -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)

src/hackerbase.scm

@@ -378,7 +378,7 @@
 	  (print "Mailman synchronization disabled with manually specified current month."))))
   ((notify)
    (let ((nmembers (members-to-notify MB (-notify-months-))))
-     (newline)
+     (stdout-newline)
      (if (null? nmembers)
 	 (print "Everyone paid on time.")
 	 (let ()

src/members-print.scm

@@ -129,8 +129,6 @@
 				   (ptbl (table->string
 					  pdata
 					  #:border '(((#:right light) ... none) ...))))
-			      ;;(print pdata)
-			      ;;(write ptbl)(newline)
 			      (list k ptbl)))
 			   ((fee)
 			    (let* ((pdata
@@ -150,8 +148,6 @@
 				   (ptbl (table->string
 					  pdata
 					  #:border '(((#:right light) ... none) ...))))
-			      ;;(print pdata)
-			      ;;(write ptbl)(newline)
 			      (list k ptbl)))
 			   (else
 			    (if v
@@ -182,7 +178,6 @@
 			(list (list (ansi-string #:red "DokuWiki")
 				    (ansi-string #:red "---")))))
 	  (result (filter identity (append head body mailman dokuwiki))))
-     ;;(write result)(newline)
      (table->string result
 		    #:border '(((#:bottom #:right light) ... (#:bottom light))
 			       ...

src/sgr-block.scm

@@ -366,7 +366,6 @@
 			    slw))
 		   state)))
        (let ((sln (sgr-list-neutralize sl)))
-	 ;;(write sln)(newline)
 	 (values (list sln) initial-state))))
 
  ;; Renders all the lines and appends the resulting blocks

src/table-processor.scm

@@ -204,8 +204,6 @@
 	      (tbl1 (render-cells-widths ptbl col-widths))
 	      ;;(_ (print tbl1))
 	      (tbl2 (map expand-row-height tbl1)))
-	 ;;(write tbl1)(newline)
-	 ;;(write tbl2)(newline)
 	 ;; Just return the result - both the table and cached column widths
 	 (values tbl2
 		 col-widths))))

src/table.scm

@@ -88,7 +88,6 @@
 	    (borders (expand-table-style border-spec num-columns num-rows))
 	    (col-separators (table-col-separators? borders))
 	    (rows (merge-rows ptbl borders col-separators unicode?)))
-       ;;(write rows)(newline)
        (let loop ((rows rows)
 		  (borders borders)
 		  (res '())