Updates for 34.6

CHANGELOG.md

@@ -6,6 +6,12 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/)
 
 ## [Unreleased]
 
+## [34.6] - 2024-01-10
+
+### Changed
+
+- Tweaks for Yggdrasil
+
 ## [34.5] - 2023-08-19
 
 ### Added
@@ -489,8 +495,9 @@ 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-34.5...HEAD
-[34.4]: https://github.com/Shen-Language/shen-sources/compare/shen-34.4...shen-34.5
+[Unreleased]: https://github.com/Shen-Language/shen-sources/compare/shen-34.6...HEAD
+[34.6]: https://github.com/Shen-Language/shen-sources/compare/shen-34.5...shen-34.6
+[34.5]: https://github.com/Shen-Language/shen-sources/compare/shen-34.4...shen-34.5
 [34.4]: https://github.com/Shen-Language/shen-sources/compare/shen-34.3...shen-34.4
 [34.3]: https://github.com/Shen-Language/shen-sources/compare/shen-34.2...shen-34.3
 [34.2]: https://github.com/Shen-Language/shen-sources/compare/shen-34.1...shen-34.2

sources/declarations.shen

@@ -47,7 +47,7 @@
 (set *infs* 0)
 (set *hush* false)
 (set *optimise* false)
-(set *version* "34.5")
+(set *version* "34.6")
 (set *step* false)
 (set *it* "")
 (set *residue* [])

sources/load.shen

@@ -66,10 +66,15 @@
   File -> (let KLFile (klfile File)
                Code (read-file File)
                Open (open KLFile out)
-               KL (map (/. X (shen->kl-h X)) Code)
+               KL (map (/. X (partial (shen->kl-h X))) Code)
                Write (write-kl KL Open)
                KLFile))
 
+(define partial
+   [f-error F] -> [simple-error (cn "partial function " (str F))]
+   [X | Y] -> (map (/. Z (partial Z)) [X | Y])
+   X -> X)
+
 (define write-kl
   [] Open -> (close Open)
   [KL | KLs] Open -> (write-kl KLs (do (write-kl-h KL Open)