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 (file)
--- 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 (file)
--- 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