Commit 14fa1fbd authored by bp's avatar bp

Synonym

git-svn-id: https://forth-ev.de/repos/bigforth@2635 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 115811f3
......@@ -24,3 +24,10 @@ User span
\needs environment? include environ.fs
\needs locals| include locals.fs
: synonym ( newname oldname -- ) lastcfa push
Header -2 allot last @ dup c@ $20 and
0= IF 0 A, $20 flag! THEN
bl word find dup 0> IF immediate THEN
1 and 0= IF restrict THEN
swap (name> ! reveal ;
This source diff could not be displayed because it is too large. You can view the blob instead.
No preview for this file type
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment