don't need map here, for-each is enough

sexc.scm

@@ -85,10 +85,10 @@
         (read-forms (cons r acc)))))
 
 (define (emit-c forms)
-  (map (lambda (form)
+  (for-each (lambda (form)
-         (fmt #t (c-expr form))
+              (fmt #t (c-expr form))
-         (fmt #t "\n"))
+              (fmt #t "\n"))
-       forms))
+            forms))
 
 ;;; Main function facilities