Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add defined?

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-06 17:19:53 +09:00
parent ef3e15a3ca
commit 7f06ce6600
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bootstrap.fs
View file

@ -2118,6 +2118,9 @@ codegen-target @ s" no-codegen" str= not [if]
abort
[then] [then] \ End of environment dependent code
: defined? ( "name" -- f )
word throw find <> 0
;
: need-defined ( "name" -- )
word throw dup find unless