Commit 14fa1fbd authored by bp's avatar bp
Browse files


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 ;
No preview for this file type
No preview for this file type
Supports Markdown
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