Commit 14fa1fbd authored by bp's avatar bp


git-svn-id: 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
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment