From: Simon Forman Date: Tue, 5 Apr 2022 18:15:34 +0000 (-0700) Subject: Need to keep definition for ucons around X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=d0a253c503988e5a8f002f7e7d855e1753002c24;p=joypy%2FThun.git Need to keep definition for ucons around the Nim implementation has first and rest but not uncons. --- diff --git a/implementations/Nim/defs.txt b/implementations/Nim/defs.txt index c152e90..2af30ef 100644 --- a/implementations/Nim/defs.txt +++ b/implementations/Nim/defs.txt @@ -18,7 +18,7 @@ b [i] dip i binary unary popd ccccons ccons ccons ccons cons cons -clear stack bool [pop stack bool] loop +clear [] swaack pop cleave fork popdd clop cleave popdd codi cons dip @@ -33,6 +33,7 @@ dupdd [dup] dipd dupdip dupd dip dupdipd dup dipd enstacken stack [clear] dip +first uncons pop flatten <{} [concat] step fork [i] app2 fourth rest third @@ -65,7 +66,7 @@ quoted [unit] dip range [0 <=] [1 - dup] anamorphism range_to_zero unit [down_to_zero] infra reco rest cons -rest [pop] infra +rest uncons popd reverse <{} shunt roll> swap swapd roll< swapd swap diff --git a/implementations/defs.txt b/implementations/defs.txt index 47b5ebb..2af30ef 100644 --- a/implementations/defs.txt +++ b/implementations/defs.txt @@ -96,6 +96,7 @@ ternary binary popd third rest second tuck dup swapd unary nullary popd +uncons [first] [rest] cleave unit [] cons unquoted [i] dip unswons uncons swap