retroforth/example/NamingQuotes.retro
crc 848ba7303b use .retro instead of .forth in examples
FossilOrigin-Name: b5feea667d30aac255d1cfca61fed355d438d2ce6021677f1e53af6302b15eee
2019-08-20 18:46:40 +00:00

38 lines
752 B
Text

# Naming Quotes
Anonymous functions called quotes are used heavily by Retro.
This shows a way to attach names to them.
In a classic Forth, words are created using `:`, which is
one of numerous parsing words. So a named function looks
like:
: foo ... ;
In Retro, there are no parsing words. There is a prefix
handler `:`, yielding:
:foo ... ;
Quotes start with `[` and end with `]`. So they look like:
[ ... ]
If we want to name a quote, we need to:
- create a header
- assign the xt field to the quote address
- set the class handler
This word, `def`, does these.
~~~
:def (as-) d:create d:last d:xt store &class:word reclass ;
~~~
An example of using this:
```
[ 'Hello_%s!\n s:format s:put ] 'hello def
'#forth hello
```