1
0
Fork 0
mirror of https://github.com/ton-blockchain/ton synced 2025-03-09 15:40:10 +00:00

updated lite-client

This commit is contained in:
ton 2020-03-31 17:11:56 +04:00
parent 4dd5eea11f
commit 4b5dd4525e
27 changed files with 204 additions and 29 deletions

View file

@ -247,3 +247,16 @@ recursive append-long-bytes {
// ( x a b -- a<=x<=b )
{ 2 pick >= -rot >= and } : in-range?
// ( c i -- ? ) Checks whether c is a valid value for config param #i
def? config-valid? {
{ nip 0>= { ."warning: cannot check validity of configuration parameter value, use create-state instead of fift to check validity" cr } if
true } : config-valid?
} ifnot
{ dup -1000 = { drop <s ref@ <s 12 u@ 0xFF0 = } {
dup -1001 = { drop <s ref@ <s 12 u@ 0xFF0 = } {
over null? { 2drop true } {
config-valid?
} cond } cond } cond
} : is-valid-config?