Re: Rabbit-vm

Jon Purdy <[email protected]> Mon, 5 May 2014 14:19:51 -0700
Newsgroups gmane.comp.lang.concatenative
Message-ID <CAE3FWBv4XMm5C8sd01HTcp4paYoCNOqPdZKJbcgVUnp=BKuDsA@mail.gmail.com>
--4XD06PJ79KrziWxq56m29pw-1pfCss4fjDnwLB8
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

> I would like to use () instead of [].

Syntax design is hard. The argument for [] is that they=E2=80=99re non-shif=
t
keys (on US keyboards) and they free up parentheses for their more
common meanings of grouping (mathematics) or comments (natural
language). I use {} for code quotations in Kitten because they give
you a syntax more resembling C, and that frees up [] for data
quotations (vectors).

> Factor, with its 224MB-installation seems a lot more than i can chew.

I agree. :)

> () (1 2 3)  uncons (swons)dip
> () (1 2 3)  uncons swons^

We talked about this briefly on the Concatenative Programming G+
group[1], namely that higher-order functions are something like
adverbs, and seem to work well when they look syntactically like
inflections. You could make the combination of word+symbol invoke
=E2=80=9C(word) symbol=E2=80=9D and avoid a lot of nesting without making =
=E2=80=9C^=E2=80=9D special.

[1]: https://plus.google.com/103392068634106050064/posts/gEkDANFd7qp

> (name)
> `name
>
> This is a small difference. The improvement is not in typing but in readi=
ng: `name is most of the time a name, passed to a function.

I read those differently:

(name) =3D =E2=80=9Cpush a new quotation which calls =E2=80=98name=E2=80=99=
=E2=80=9D
`name =3D =E2=80=9Cpush the word =E2=80=98name=E2=80=99 itself=E2=80=9D

Of course, they can have the same implementation.

> From time to time i run into a pattern like this:
> fac-2 doesn't work! Because copy+paste didn't change the name fac-1 into =
fac-2.
>
> fac-1: ( 0 =3D )( zap 1 )( dup 1 - fac-1 * )if*
>
> fac-2: dup 0 =3D ( zap 1 )( dup 1 - fac-1 * )if/
>
>
> In the following 'loop' is just a symbol, that is going to be replaced by=
 the name of the currently defined word. This saves typing and is an improv=
ement on legibility.
>
> fac-1: ( 0 =3D )( zap 1 )( dup 1 - loop * )if*
>
> fac-2: dup 0 =3D ( zap 1 )( dup 1 - loop * )if/
>

Forth implementations sometimes have a =E2=80=9Crecurse=E2=80=9D word for t=
his
purpose. I prefer =E2=80=9Crecur=E2=80=9D or =E2=80=9Cloop=E2=80=9D because=
 it lets you say cute
things like:

    def repl: read evaluate print loop

> I think there are lots of running implemetations of pure Joy somewhere in=
 the internet, but the only ones i know about are Joy1 in scheme and C form=
 John Cowan, njoy in OCaml from  Christian Szegedy and Conca from Claude Ma=
rinier.

Do you want this to become the standard implementation of Joy? Joy
seems like the concatenative Scheme, in that it=E2=80=99s small and easy to
implement, so there are many incompatible implementations=E2=80=A6

> I don't know, is it a coincidence or did it just happen at the same time =
that Claude and i present the same idea within a few days.

That has a tendency to happen.

> The code is at sourceforge at Rabbit-vm.

You should check it into the repo on SourceForge so that it can be
browsed under =E2=80=9CCode=E2=80=9D instead of by downloading the tarball.=
 :)

--4XD06PJ79KrziWxq56m29pw-1pfCss4fjDnwLB8
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable




<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/htm=
l4/strict.dtd">
<html>
<head>
</head>






=20
<body style=3D"background-color: #fff;">
<span style=3D"display:none">&nbsp;</span>

<!--~-|**|PrettyHtmlStartT|**|-~-->
<div id=3D"ygrp-mlmsg" style=3D"position:relative;">
  <div id=3D"ygrp-msg" style=3D"z-index: 1;">
<!--~-|**|PrettyHtmlEndT|**|-~-->

    <div id=3D"ygrp-text" >
=20=20=20=20=20=20
=20=20=20=20=20=20
      <p>&gt; I would like to use () instead of [].<br>
<br>
Syntax design is hard. The argument for [] is that they=E2=80=99re non-shif=
t<br>
keys (on US keyboards) and they free up parentheses for their more<br>
common meanings of grouping (mathematics) or comments (natural<br>
language). I use {} for code quotations in Kitten because they give<br>
you a syntax more resembling C, and that frees up [] for data<br>
quotations (vectors).<br>
<br>
&gt; Factor, with its 224MB-installation seems a lot more than i can chew.<=
br>
<br>
I agree. :)<br>
<br>
&gt; () (1 2 3)  uncons (swons)dip<br>
&gt; () (1 2 3)  uncons swons^<br>
<br>
We talked about this briefly on the Concatenative Programming G+<br>
group[1], namely that higher-order functions are something like<br>
adverbs, and seem to work well when they look syntactically like<br>
inflections. You could make the combination of word&#43;symbol invoke<br>
=E2=80=9C(word) symbol=E2=80=9D and avoid a lot of nesting without making =
=E2=80=9C^=E2=80=9D special.<br>
<br>
[1]: https://plus.google.com/103392068634106050064/posts/gEkDANFd7qp<br>
<br>
&gt; (name)<br>
&gt; `name<br>
&gt;<br>
&gt; This is a small difference. The improvement is not in typing but in re=
ading: `name is most of the time a name, passed to a function.<br>
<br>
I read those differently:<br>
<br>
(name) =3D =E2=80=9Cpush a new quotation which calls =E2=80=98name=E2=80=99=
=E2=80=9D<br>
`name =3D =E2=80=9Cpush the word =E2=80=98name=E2=80=99 itself=E2=80=9D<br>
<br>
Of course, they can have the same implementation.<br>
<br>
&gt; From time to time i run into a pattern like this:<br>
&gt; fac-2 doesn&#39;t work! Because copy&#43;paste didn&#39;t change the n=
ame fac-1 into fac-2.<br>
&gt;<br>
&gt; fac-1: ( 0 =3D )( zap 1 )( dup 1 - fac-1 * )if*<br>
&gt;<br>
&gt; fac-2: dup 0 =3D ( zap 1 )( dup 1 - fac-1 * )if/<br>
&gt;<br>
&gt;<br>
&gt; In the following &#39;loop&#39; is just a symbol, that is going to be =
replaced by the name of the currently defined word. This saves typing and i=
s an improvement on legibility.<br>
&gt;<br>
&gt; fac-1: ( 0 =3D )( zap 1 )( dup 1 - loop * )if*<br>
&gt;<br>
&gt; fac-2: dup 0 =3D ( zap 1 )( dup 1 - loop * )if/<br>
&gt;<br>
<br>
Forth implementations sometimes have a =E2=80=9Crecurse=E2=80=9D word for t=
his<br>
purpose. I prefer =E2=80=9Crecur=E2=80=9D or =E2=80=9Cloop=E2=80=9D because=
 it lets you say cute<br>
things like:<br>
<br>
def repl: read evaluate print loop<br>
<br>
&gt; I think there are lots of running implemetations of pure Joy somewhere=
 in the internet, but the only ones i know about are Joy1 in scheme and C f=
orm John Cowan, njoy in OCaml from  Christian Szegedy and Conca from Claude=
 Marinier.<br>
<br>
Do you want this to become the standard implementation of Joy? Joy<br>
seems like the concatenative Scheme, in that it=E2=80=99s small and easy to=
<br>
implement, so there are many incompatible implementations=E2=80=A6<br>
<br>
&gt; I don&#39;t know, is it a coincidence or did it just happen at the sam=
e time that Claude and i present the same idea within a few days.<br>
<br>
That has a tendency to happen.<br>
<br>
&gt; The code is at sourceforge at Rabbit-vm.<br>
<br>
You should check it into the repo on SourceForge so that it can be<br>
browsed under =E2=80=9CCode=E2=80=9D instead of by downloading the tarball.=
 :)<br>
</p>

    </div>
=20=20=20=20=20

    <!--~-|**|PrettyHtmlStart|**|-~-->
    <div style=3D"color: #fff; height: 0;">__._,_.___</div>

=20=20=20=20=20=20=20=20=20=20
=20=20
=20

=20=20=20=20
    <div style=3D"clear:both"> </div>

    <table cellspacing=3D4px style=3D"margin-top: 20px; margin-bottom: 10px=
; color: #2D50FD;">
      <tbody>
        <tr>
          <td style=3D"font-size: 12px; font-family: arial; font-weight: bo=
ld; padding: 7px 5px 5px;"  >
                          <a style=3D"text-decoration: none; color: #2D50FD=
" href=3D"https://groups.yahoo.com/neo/groups/concatenative/conversations/m=
essages/4995;_ylc=3DX3oDMTJwdGQxbWxoBF9TAzk3MzU5NzE0BGdycElkAzE4MzkyNzQEZ3J=
wc3BJZAMxNzA1MDA2NzY0BG1zZ0lkAzQ5OTUEc2VjA2Z0cgRzbGsDcnBseQRzdGltZQMxMzk5Mz=
I0Nzky?act=3Dreply&messageNum=3D4995">Reply via web post</a>
                      </td>
          <td>&bull;</td>
          <td style=3D"font-size: 12px; font-family: arial; padding: 7px 5p=
x 5px;" >
            <a href=3D"mailto:[email protected]?subject=3DRe%3A%20%=
5Bstack%5D%20Rabbit-vm" style=3D"text-decoration: none; color: #2D50FD;">
               Reply to sender            </a>
          </td>
          <td>&bull;</td>
          <td style=3D"font-size: 12px; font-family: arial; padding: 7px 5p=
x 5px;">
            <a href=3D"mailto:[email protected]?subject=3DRe%3A=
%20%5Bstack%5D%20Rabbit-vm" style=3D"text-decoration: none; color: #2D50FD"=
>
              Reply to group            </a>
          </td>
          <td>&bull;</td>
          <td style=3D"font-size: 12px; font-family: arial; padding: 7px 5p=
x 5px;" >
            <a href=3D"https://groups.yahoo.com/neo/groups/concatenative/co=
nversations/newtopic;_ylc=3DX3oDMTJlbDhkdjM3BF9TAzk3MzU5NzE0BGdycElkAzE4Mzk=
yNzQEZ3Jwc3BJZAMxNzA1MDA2NzY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTM5OTMyNDc5Mg=
--" style=3D"text-decoration: none; color: #2D50FD">Start a New Topic</a>
          </td>
          <td>&bull;</td>
          <td style=3D"font-size: 12px; font-family: arial; padding: 7px 5p=
x 5px;color: #2D50FD;" >
                            <a href=3D"https://groups.yahoo.com/neo/groups/=
concatenative/conversations/topics/4994;_ylc=3DX3oDMTM0MW5mMjR2BF9TAzk3MzU5=
NzE0BGdycElkAzE4MzkyNzQEZ3Jwc3BJZAMxNzA1MDA2NzY0BG1zZ0lkAzQ5OTUEc2VjA2Z0cgR=
zbGsDdnRwYwRzdGltZQMxMzk5MzI0NzkyBHRwY0lkAzQ5OTQ-" style=3D"text-decoration=
: none; color: #2D50FD;">Messages in this topic</a>
                (2)
                      </td>
        </tr>
      </tbody>
    </table>

=20=20=20=20=20=20=20=20
<div id=3D"megaphoneModule">
=20=20=20=20=20
    <hr style=3D"height:2px ; border-width:0; color:#E3E3E3; background-col=
or:#E3E3E3;">
</div>

<!------- Start Nav Bar ------>




=20

<!-- |**|begin egp html banner|**| -->
<div id=3D"ygrp-vital" style=3D"background-color: #f2f2f2; font-family: Ver=
dana; font-size: 10px; margin-bottom: 10px; padding: 10px;">

    <span id=3D"vithd" style=3D"font-weight: bold; color: #333; text-transf=
orm: uppercase; "><a href=3D"https://groups.yahoo.com/neo/groups/concatenat=
ive/info;_ylc=3DX3oDMTJlY2NiY3F2BF9TAzk3MzU5NzE0BGdycElkAzE4MzkyNzQEZ3Jwc3B=
JZAMxNzA1MDA2NzY0BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTM5OTMyNDc5Mg--" style=3D=
"text-decoration: none;">Visit Your Group</a></span>

     <ul style=3D"list-style-type: none; margin: 0; padding: 0; display: in=
line;">
                                                    </ul>
  </div>


<div id=3D"ft" style=3D"font-family: Arial; font-size: 11px; margin-top: 5p=
x; padding: 0 2px 0 0; clear: both;">
  <a href=3D"https://groups.yahoo.com/neo;_ylc=3DX3oDMTJkYnRpMHEzBF9TAzk3Mz=
U5NzE0BGdycElkAzE4MzkyNzQEZ3Jwc3BJZAMxNzA1MDA2NzY0BHNlYwNmdHIEc2xrA2dmcARzd=
GltZQMxMzk5MzI0Nzky" style=3D"float: left;"><img src=3D"http://l.yimg.com/r=
u/static/images/yg/img/email/new_logo/logo-groups-137x15.png" height=3D"15"=
 width=3D"137" alt=3D"Yahoo! Groups" style=3D"border: 0;"/></a>
  <div style=3D"color: #747575; float: right;"> &bull; <a href=3D"https://i=
nfo.yahoo.com/privacy/us/yahoo/groups/details.html" style=3D"text-decoratio=
n: none;">Privacy</a> &bull; <a href=3D"mailto:concatenative-unsubscribe@ya=
hoogroups.com?subject=3DUnsubscribe" style=3D"text-decoration: none;">Unsub=
scribe</a> &bull; <a href=3D"https://info.yahoo.com/legal/us/yahoo/utos/ter=
ms/" style=3D"text-decoration: none;">Terms of Use</a> </div>
</div>

<!-- |**|end egp html banner|**| -->

  </div> <!-- ygrp-msg -->

=20
  <!-- Sponsor -->
  <!-- |**|begin egp html banner|**| -->
  <div id=3D"ygrp-sponsor" style=3D"width:160px; float:right; clear:none; m=
argin:0 0 25px 0; background: #fff;">

<!-- Start Recommendations -->
<div id=3D"ygrp-reco">
     </div>
<!-- End Recommendations -->



  </div>   <!-- |**|end egp html banner|**| -->

  <div style=3D"clear:both; color: #FFF; font-size:1px;">.</div>
</div>

  <img src=3D"http://geo.yahoo.com/serv?s=3D97359714/grpId=3D1839274/grpspI=
d=3D1705006764/msgId=3D4995/stime=3D1399324792" width=3D"1" height=3D"1"> <=
br>

<img src=3D"http://y.analytics.yahoo.com/fpc.pl?ywarid=3D515FB27823A7407E&a=
=3D10001310322279&js=3Dno&resp=3Dimg" width=3D"1" height=3D"1">=20

<div style=3D"color: #fff; height: 0;">__,_._,___</div>
<!--~-|**|PrettyHtmlEnd|**|-~-->

</body>

<!--~-|**|PrettyHtmlStart|**|-~-->
<head>
  <style type=3D"text/css">
  <!--
  #ygrp-mkp {
  border: 1px solid #d8d8d8;
  font-family: Arial;
  margin: 10px 0;
  padding: 0 10px;
}

#ygrp-mkp hr {
  border: 1px solid #d8d8d8;
}

#ygrp-mkp #hd {
  color: #628c2a;
  font-size: 85%;
  font-weight: 700;
  line-height: 122%;
  margin: 10px 0;
}

#ygrp-mkp #ads {
  margin-bottom: 10px;
}

#ygrp-mkp .ad {
  padding: 0 0;
}

#ygrp-mkp .ad p {
  margin: 0;
}

#ygrp-mkp .ad a {
  color: #0000ff;
  text-decoration: none;
}
  #ygrp-sponsor #ygrp-lc {
  font-family: Arial;
}

#ygrp-sponsor #ygrp-lc #hd {
  margin: 10px 0px;
  font-weight: 700;
  font-size: 78%;
  line-height: 122%;
}

#ygrp-sponsor #ygrp-lc .ad {
  margin-bottom: 10px;
  padding: 0 0;
}

  #actions {
    font-family: Verdana;
    font-size: 11px;
    padding: 10px 0;
  }

  #activity {
    background-color: #e0ecee;
    float: left;
    font-family: Verdana;
    font-size: 10px;
    padding: 10px;
  }

  #activity span {
    font-weight: 700;
  }

  #activity span:first-child {
    text-transform: uppercase;
  }

  #activity span a {
    color: #5085b6;
    text-decoration: none;
  }

  #activity span span {
    color: #ff7900;
  }

  #activity span .underline {
    text-decoration: underline;
  }

  .attach {
    clear: both;
    display: table;
    font-family: Arial;
    font-size: 12px;
    padding: 10px 0;
    width: 400px;
  }

  .attach div a {
    text-decoration: none;
  }

  .attach img {
    border: none;
    padding-right: 5px;
  }

  .attach label {
    display: block;
    margin-bottom: 5px;
  }

  .attach label a {
    text-decoration: none;
  }
=20=20
  blockquote {
    margin: 0 0 0 4px;
  }

  .bold {
    font-family: Arial;
    font-size: 13px;
    font-weight: 700;
  }

  .bold a {
    text-decoration: none;
  }

  dd.last p a {
    font-family: Verdana;
    font-weight: 700;
  }

  dd.last p span {
    margin-right: 10px;
    font-family: Verdana;
    font-weight: 700;
  }

  dd.last p span.yshortcuts {
    margin-right: 0;
  }

  div.attach-table div div a {
    text-decoration: none;
  }

  div.attach-table {
    width: 400px;
  }

  div.file-title a, div.file-title a:active, div.file-title a:hover, div.fi=
le-title a:visited {
    text-decoration: none;
  }

  div.photo-title a, div.photo-title a:active, div.photo-title a:hover, div=
.photo-title a:visited {
    text-decoration: none;
  }

  div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts {
    font-family: Verdana;
    font-size: 10px;
    font-weight: normal;
  }

  .green {
    color: #628c2a;
  }

  .MsoNormal {
    margin: 0 0 0 0;
  }

  o {
    font-size: 0;
  }

  #photos div {
    float: left;
    width: 72px;
  }

  #photos div div {
    border: 1px solid #666666;
    height: 62px;
    overflow: hidden;
    width: 62px;
  }

  #photos div label {
    color: #666666;
    font-size: 10px;
    overflow: hidden;
    text-align: center;
    white-space: nowrap;
    width: 64px;
  }

  #reco-category {
    font-size: 77%;
  }

  #reco-desc {
    font-size: 77%;
  }

  .replbq {
    margin: 4px;
  }

  #ygrp-actbar div a:first-child {
   /* border-right: 0px solid #000;*/
    margin-right: 2px;
    padding-right: 5px;
  }

  #ygrp-mlmsg {
    font-size: 13px;
    font-family: Arial, helvetica,clean, sans-serif;
    *font-size: small;
    *font: x-small;
  }

  #ygrp-mlmsg table {
    font-size: inherit;
    font: 100%;
  }

  #ygrp-mlmsg select, input, textarea {
    font: 99% Arial, Helvetica, clean, sans-serif;
  }

  #ygrp-mlmsg pre, code {
    font:115% monospace;
    *font-size:100%;
  }

  #ygrp-mlmsg * {
    line-height: 1.22em;
  }

  #ygrp-mlmsg #logo {
    padding-bottom: 10px;
  }


  #ygrp-msg p a {
    font-family: Verdana;
  }

  #ygrp-msg p#attach-count span {
    color: #1E66AE;
    font-weight: 700;
  }

  #ygrp-reco #reco-head {
    color: #ff7900;
    font-weight: 700;
  }

  #ygrp-reco {
    margin-bottom: 20px;
    padding: 0px;
  }

  #ygrp-sponsor #ov li a {
    font-size: 130%;
    text-decoration: none;
  }

  #ygrp-sponsor #ov li {
    font-size: 77%;
    list-style-type: square;
    padding: 6px 0;
  }=20

  #ygrp-sponsor #ov ul {
    margin: 0;
    padding: 0 0 0 8px;
  }

  #ygrp-text {
    font-family: Georgia;
  }

  #ygrp-text p {
    margin: 0 0 1em 0;
  }

  #ygrp-text tt {
    font-size: 120%;
  }

  #ygrp-vital ul li:last-child {
    border-right: none !important;=20
  }=20
  -->
  </style>
</head>

<!--~-|**|PrettyHtmlEnd|**|-~-->
</html>
<!-- end group email -->


--4XD06PJ79KrziWxq56m29pw-1pfCss4fjDnwLB8--