Uncomment ifte built-in.

This commit is contained in:
Simon Forman 2021-12-23 19:12:54 -08:00
parent cc8d15ed84
commit 0a76eea3e2
1 changed files with 26 additions and 26 deletions

View File

@ -1007,32 +1007,32 @@ def branch(stack, expression, dictionary):
return stack, concat(then if flag else else_, expression), dictionary
##@inscribe
##@FunctionWrapper
##def ifte(stack, expression, dictionary):
## '''
## If-Then-Else Combinator
## ::
##
## ... [if] [then] [else] ifte
## ---------------------------------------------------
## ... [[else] [then]] [...] [if] infra select i
##
##
##
##
## ... [if] [then] [else] ifte
## -------------------------------------------------------
## ... [else] [then] [...] [if] infra first choice i
##
##
## Has the effect of grabbing a copy of the stack on which to run the
## if-part using infra.
## '''
## (else_, (then, (if_, stack))) = stack
## expression = (S_infra, (S_first, (S_choice, (S_i, expression))))
## stack = (if_, (stack, (then, (else_, stack))))
## return stack, expression, dictionary
@inscribe
@FunctionWrapper
def ifte(stack, expression, dictionary):
'''
If-Then-Else Combinator
::
... [if] [then] [else] ifte
---------------------------------------------------
... [[else] [then]] [...] [if] infra select i
... [if] [then] [else] ifte
-------------------------------------------------------
... [else] [then] [...] [if] infra first choice i
Has the effect of grabbing a copy of the stack on which to run the
if-part using infra.
'''
(else_, (then, (if_, stack))) = stack
expression = (S_infra, (S_first, (S_choice, (S_i, expression))))
stack = (if_, (stack, (then, (else_, stack))))
return stack, expression, dictionary
@inscribe