Commit 483b8b17 authored by Bernd Paysan's avatar Bernd Paysan

Only standard alignment

parent f7551a6a
Pipeline #1049 passed with stage
in 11 minutes and 8 seconds
...@@ -127,14 +127,14 @@ forthstart sections >stack ...@@ -127,14 +127,14 @@ forthstart sections >stack
:noname :noname
[: section-name @ ['] forth <> IF [: section-name @ ['] forth <> IF
s" Section." 2 pick write-file throw s" Section." 2 pick write-file throw
section-start @ section-dp @ over - maxaligned section-start @ section-dp @ over - aligned
2 pick write-file throw 2 pick write-file throw
THEN ;] sections-execute drop ; is dump-sections THEN ;] sections-execute drop ; is dump-sections
[ELSE] [ELSE]
: dump-sections ( fid -- ) : dump-sections ( fid -- )
[: section-name @ ['] forth <> IF [: section-name @ ['] forth <> IF
s" Section." 2 pick write-file throw s" Section." 2 pick write-file throw
section-start @ section-dp @ over - maxaligned section-start @ section-dp @ over - aligned
2 pick write-file throw 2 pick write-file throw
THEN ;] sections-execute drop ; THEN ;] sections-execute drop ;
[THEN] [THEN]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment