From: Jonas Hvid <mail@johv.dk>
Date: Fri, 6 Dec 2019 13:48:12 +0000 (+0100)
Subject: Implement CREATE
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;ds=sidebyside;h=1013709c277143b58deafcf9a1faccd3e9b799a2;hp=1013709c277143b58deafcf9a1faccd3e9b799a2;p=rrq%2Fjonasforth.git

Implement CREATE

We can now do stuff like:

  S" 3HELLO" CREATE
  S" DOCOL" FIND >CFA ,
  S" HELLO" FIND >CFA ,
  S" HELLO" FIND >CFA ,
  S" HELLO" FIND >CFA ,
  S" EXIT" FIND >CFA ,
  3HELLO
---