Skip to content

Instantly share code, notes, and snippets.

@Ismael-VC

Ismael-VC/verbose-if.tal

Created April 11, 2023 22:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Ismael-VC/48c0baca37dcd28985a247ecc6804dc5 to your computer and use it in GitHub Desktop.
Save Ismael-VC/48c0baca37dcd28985a247ecc6804dc5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
verbose-if.tal
@foo ( a b -- bool ) [
( if ) [ ( a b ) EQU ] ?&then [
( else ) [
#00 ( return false )
RTN
] &then [
#01 ( return true )
]
]
RTN
]
@bar ( a b -- bool ) [
( if ) [ ( a b ) NEQ ] ?&else [
( then ) [
#01 ( return true )
RTN
] &else [
#01 ( return true )
]
]
RTN
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment