aboutsummaryrefslogtreecommitdiffhomepage
path: root/std/Number/Binary.bruijn
diff options
context:
space:
mode:
Diffstat (limited to 'std/Number/Binary.bruijn')
-rw-r--r--std/Number/Binary.bruijn2
1 files changed, 1 insertions, 1 deletions
diff --git a/std/Number/Binary.bruijn b/std/Number/Binary.bruijn
index fcbe264..a056538 100644
--- a/std/Number/Binary.bruijn
+++ b/std/Number/Binary.bruijn
@@ -348,7 +348,7 @@ compare-case [[[(T.compare-case 2 1 0) ⋔ binary→ternary]]] ⧗ a → b → c
# returns 1 if a>b, -1 if a<b and 0 if a=b
# also: spaceship operator
-compare compare-case (+0) (+1) (-1) ⧗ Binary → Binary → Binary
+compare compare-case (+0) (+1) (-1) ⧗ Binary → Binary → Number
:test (compare (+2b) (+2b)) ((+0))
:test (compare (+2b) (+1b)) ((+1))