Verified Commit 483b8b17 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Only standard alignment

parent f7551a6a

sections.fs

+2 −2
Original line number Diff line number Diff line
@@ -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]