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