gdjn  Diff

Differences From Artifact [22543b9ce7]:

To Artifact [495ac069e8]:


1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
	(let [uf (unit-files unit)]
		(:write stdout (case emit
			"header" (lines->str (uf :header))
			"loader" (lines->str (uf :impl))
			(error :bad-cmd)))))

(defn main [& argv]
	(entry ;argv))
	# (try (entry ;argv)
	# 	([e] (:write stderr (style ;(err->msg e)) "\n"))))







|
|
|
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
	(let [uf (unit-files unit)]
		(:write stdout (case emit
			"header" (lines->str (uf :header))
			"loader" (lines->str (uf :impl))
			(error :bad-cmd)))))

(defn main [& argv]
	# (entry ;argv))
	(try (entry ;argv)
		([e] (:write stderr (style ;(err->msg e)) "\n"))))