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

sexc.scm

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