<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><br><div><div>On Sep 15, 2010, at 6:00 AM, <a href="mailto:openbios-request@openbios.org">openbios-request@openbios.org</a> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; ">Message: 1<br>Date: Wed, 15 Sep 2010 09:50:07 +0100<br>From: Mark Cave-Ayland <<a href="mailto:mark.cave-ayland@siriusit.co.uk">mark.cave-ayland@siriusit.co.uk</a>><br>To: The OpenBIOS Mailinglist <<a href="mailto:openbios@openbios.org">openbios@openbios.org</a>><br>Subject: Re: [OpenBIOS] corrections to vocabulary.fs<br>Message-ID: <<a href="mailto:4C9088BF.4060803@siriusit.co.uk">4C9088BF.4060803@siriusit.co.uk</a>><br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br><br>Programmingkid wrote:<br><br><blockquote type="cite">I found a few documentation mistakes in the vocabulary.fs file. In the comment section of get-order and set-order, their comments are incorrect. For get-order the comment should be ( -- widn .. wid1 n). For set-order the comment should be ( widn .. wid1 n -- ). This page is where I found the correct comments:<span class="Apple-converted-space"> </span><a href="http://lars.nocrew.org/dpans/dpans16.htm#16.6.1.2197">http://lars.nocrew.org/dpans/dpans16.htm#16.6.1.2197</a><br></blockquote><br>Nice work. Can you provide a patch for us to review and commit?<br><br><br>ATB,<br><br>Mark.<br><br>--<span class="Apple-converted-space"> </span></span></blockquote></div><br><div><br></div><div>I'm not very good with making patches, but I think this might work:</div><div><br></div><div><div><div>--- ./vocabulary.fs<span class="Apple-tab-span" style="white-space:pre"> </span>2009-11-15 21:03:50.000000000 -0500</div><div>+++ /vocabulary.fs<span class="Apple-tab-span" style="white-space:pre"> </span>2010-09-15 18:09:40.000000000 -0400</div><div>@@ -39,14 +39,14 @@</div><div> here 0 ,</div><div> ;</div><div> </div><div>-: get-order ( -- wid1 .. widn n )</div><div>+: get-order ( -- widn .. wid1 n )</div><div> #order @ 0 ?do</div><div> #order @ i - 1- cells context + @</div><div> loop</div><div> #order @</div><div> ;</div><div> </div><div>-: set-order ( wid1 .. widn n -- )</div><div>+: set-order ( widn .. wid1 n -- )</div><div> dup -1 = if</div><div> drop forth-last 1 \ push system default word list and number of lists</div><div> then</div></div></div><div><br></div></body></html>