From 1540338306c9823f3ccef734ce027a2165b1f4ec Mon Sep 17 00:00:00 2001 From: Simon Forman Date: Sun, 12 Feb 2023 20:11:40 -0800 Subject: [PATCH] Minor cleanup. To the first serious Joy code: bigints! --- implementations/bigints.joy | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/implementations/bigints.joy b/implementations/bigints.joy index 0324305..33745b8 100644 --- a/implementations/bigints.joy +++ b/implementations/bigints.joy @@ -63,7 +63,7 @@ clear [_gtb_BASE [bool] [popop pop true] [_gtb_BASE'] ifte] [_gtb_BASE' [pop bool] [popop pop false] [popop compare-pairs] ifte] -[sub-carry-from-digits [pop not] [popd] [_scfd_R0] [i cons-but-not-leading-zeroes] genrec] inscribe +[sub-carry-from-digits [pop not] [popd] [_scfd_R0] [i cons-but-not-leading-zeroes] genrec] [_scfd_R0 uncons 0 swap [sub-with-carry] dip] [cons-but-not-leading-zeroes [P'] [cons] [popd] ifte] @@ -92,4 +92,4 @@ build-two-list-combiner [sub-digits'] swoncat inscribe -1234 to-bigint dup sub-bigints +1000000000000000000000000000000000000000 to-bigint 1 to-bigint sub-bigints from-bigint