From e18789684218ca036a4e3e7360b952b642d6a144 Mon Sep 17 00:00:00 2001
From: Bruno Deferrari <utizoc@gmail.com>
Date: Sun, 7 Mar 2021 14:53:04 -0300
Subject: [PATCH] Bump version

---
 CHANGELOG.md               |  5 ++++-
 README.md                  |  4 ++--
 benchmarks/benchmarks.shen | 13 +++++++------
 sources/declarations.shen  |  2 +-
 4 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index a13bbff..9b02ac3 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -6,6 +6,8 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/)
 
 ## [Unreleased]
 
+## [22.4] - 2020-03-07
+
 ### Fixed
 
 - Fixed compilation of empty vector pattern matching.
@@ -396,7 +398,8 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/)
 - y-or-n? fixed
 - compiler warnings suppressed in CLisp
 
-[Unreleased]: https://github.com/Shen-Language/shen-sources/compare/shen-22.3...HEAD
+[Unreleased]: https://github.com/Shen-Language/shen-sources/compare/shen-22.4...HEAD
+[22.4]: https://github.com/Shen-Language/shen-sources/compare/shen-22.3...shen-22.4
 [22.3]: https://github.com/Shen-Language/shen-sources/compare/shen-22.2...shen-22.3
 [22.2]: https://github.com/Shen-Language/shen-sources/compare/shen-22.1...shen-22.2
 [22.1]: https://github.com/Shen-Language/shen-sources/compare/shen-22.0...shen-22.1
diff --git a/README.md b/README.md
index 406e2ee..c7a9d81 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-[![Current Release](https://img.shields.io/badge/release-22.3-blue.svg)](https://github.com/Shen-Language/shen-sources/releases)
+[![Current Release](https://img.shields.io/badge/release-22.4-blue.svg)](https://github.com/Shen-Language/shen-sources/releases)
 
 # Official Shen Sources
 
@@ -32,7 +32,7 @@ Packages can be created for any version, but when uploading to the releases page
 
 ```
 make pure
-git checkout shen-22.3
+git checkout shen-22.4
 make fetch
 make klambda
 make release
diff --git a/benchmarks/benchmarks.shen b/benchmarks/benchmarks.shen
index 8e5640b..5222e63 100644
--- a/benchmarks/benchmarks.shen
+++ b/benchmarks/benchmarks.shen
@@ -25,7 +25,7 @@
   setup _ -> skip
   cleanup _ -> skip
   begin [_ Description RunsPower] -> (output "Measuring 10^~S runs of: ~A~%" RunsPower Description)
-  finish [_ _ _ Start End] -> (output "run time: ~S secs~%" (- End Start)))
+  finish [_ _ _ Start End] -> (output "    run time: ~S secs~%" (- End Start)))
 
 (define save-report
   setup _ -> (set *benchmark-results* [])
@@ -39,13 +39,14 @@
                  Results (map (run-benchmark Report) Benchmarks)
                  Cleanup (Report cleanup Benchmarks)
               done))
-
+\\(set _scm.*factorize-patterns* false)
 (set *hush* true)
-(load "benchmarks/data.shen")
-(load "benchmarks/control-flow.shen")
-(load "benchmarks/shen-compilation.shen")
+\\(set shen-cl.*factorise-patterns* false)
+\\(load "benchmarks/data.shen")
+\\(load "benchmarks/control-flow.shen")
+\\(load "benchmarks/shen-compilation.shen")
 (load "benchmarks/pattern-matching.shen")
-(load "benchmarks/equality-check.shen")
+\\(load "benchmarks/equality-check.shen")
 (set *hush* false)
 
 (if (bound? *argv*)
diff --git a/sources/declarations.shen b/sources/declarations.shen
index b2aa743..08ebadf 100644
--- a/sources/declarations.shen
+++ b/sources/declarations.shen
@@ -84,7 +84,7 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 (set *infs* 0)
 (set *hush* false)
 (set *optimise* false)
-(set *version* "Shen 22.3")
+(set *version* "Shen 22.4")
 
 (if (not (bound? *home-directory*))
     (set *home-directory* "")