Negative base numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 499: / Line 499: @@
 : /mod* ( x y -- z w )
-    [ /mod ] keep '[ [ 1 + ] [ _ abs + ] bi* ] when-negative ;
+    [ /mod ] keep '[ [ 1 + ] dip _ abs + ] when-negative ;
 : >nega ( n radix -- str )