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
:noname
[: section-name @ ['] forth <> IF
s" Section." 2 pick write-file throw
section-start @ section-dp @ over - maxaligned
section-start @ section-dp @ over - aligned
2 pick write-file throw
THEN ;] sections-execute drop ; is dump-sections
[ELSE]
: dump-sections ( fid -- )
[: section-name @ ['] forth <> IF
s" Section." 2 pick write-file throw
section-start @ section-dp @ over - maxaligned
section-start @ section-dp @ over - aligned
2 pick write-file throw
THEN ;] sections-execute drop ;
[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