Crude type checking.

I forget why I was doing "not not" so I made it a little more clear.  In
practice this is regressive:  The built-in "isnt_bool" function should
be in the dictionary?  Or prohibit type checking and let the bugs flow?
Rely on inference to prevent bugs that would pass the non-checking
versions of the functions?  Hmm...
This commit is contained in:
sforman 2023-07-30 15:42:55 -07:00
parent 373666bf39
commit c0fa319c9c
1 changed files with 5 additions and 3 deletions

View File

@ -126,6 +126,8 @@ _mape popd reverse
_map0 [_map1] dipd _map2 _map0 [_map1] dipd _map2
_map1 stackd shift _map1 stackd shift
_map2 [infrst] cons dipd roll< swons _map2 [infrst] cons dipd roll< swons
_\/_ [not not] [not] branch _isnt_bool not not
/\ [not not] ii [pop false] [] branch _isnt_two_bools [_isnt_bool] ii
\/ [not not] ii [] [pop true] branch _\/_ [_isnt_bool] [not] branch
/\ _isnt_two_bools [pop false] [] branch
\/ _isnt_two_bools [] [pop true] branch