Decrease section size for deeper nested sections

662b4137 · Bernd Paysan · 89d3fa39 · 662b4137
Commit 662b4137 authored Jan 12, 2020 by Bernd Paysan
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

sections.fs sections.fs +1 -1

No files found.
--- a/sections.fs
+++ b/sections.fs
@@ -85,7 +85,7 @@ is addr>view
    current-section @ r> current-section ! ;

 : new-section ( -- )
-    section-defaultsize create-section sections >stack ;
+    section-size @ 2/ 2/ create-section sections >stack ;

 Variable lits<>