Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add check-argument

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-17 23:29:25 +09:00
parent 17be0a6c89
commit d75afc11c1
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/core.fs
View file

@ -19,3 +19,9 @@ defined? roll [unless]
s" }T" streq if exit then s" }T" streq if exit then
again again
; ;
s" Invalid argument" exception constant INVALID-ARGUMENT
: check-argument ( f -- )
unless INVALID-ARGUMENT throw then
;