diff options
| author |  Calvin Rose <calsrose@gmail.com> | 2019-10-19 18:00:29 -0500 |
|---|---|---|
| committer | Calvin Rose <calsrose@gmail.com> | 2019-10-19 18:00:29 -0500 |
| commit | b9e05d06fe3f4177f08edc149565bf4f5ea760bc (patch) | |
| tree | 09b630c2e9c2ae161a28d7de274493b84125bab4 | |
| parent | Fix memory leak with some string/ functions. (diff) | |
Update amalg step.
| -rw-r--r-- | tools/amalg.janet | 3 | ||||
| -rw-r--r-- | tools/removecr.janet | 8 |
2 files changed, 6 insertions, 5 deletions
diff --git a/tools/amalg.janet b/tools/amalg.janet index c571a7e6..c8cf35f9 100644 --- a/tools/amalg.janet +++ b/tools/amalg.janet @@ -10,3 +10,6 @@ # Body (each path (tuple/slice (dyn :args) 1) (print (slurp path))) + +# maybe will help +(:flush stdout) diff --git a/tools/removecr.janet b/tools/removecr.janet index 305def6b..97016569 100644 --- a/tools/removecr.janet +++ b/tools/removecr.janet @@ -2,8 +2,6 @@ # windows may add bad line endings, we can just force removal # with this script. (def fname ((dyn :args) 1)) -(with [f (file/open fname :rb+)] - (def source (:read f :all)) - (def new-source (string/replace-all "\r" "" source)) - (:seek f :set 0) - (:write f new-source)) +(def input (slurp fname :rb)) +(def new-source (string/replace-all "\r" "" source)) +(spit fname new-source :wb) |