udpate to new ?^ register

This commit is contained in:
~d6 2024-04-18 10:25:07 -04:00
parent dcd8b283e5
commit 9ebbcf7d08
1 changed files with 2 additions and 2 deletions

View File

@ -376,7 +376,7 @@
<> (force (x ?t)) ((x force ?t)) <> (force (x ?t)) ((x force ?t))
-- ( emit ) -- ( emit )
<> (emit force/r ?*) (?*) <> (emit force/r ?^) (?^)
-- ( to binary string ) -- ( to binary string )
<> ((bstr (N ?x))) ((bstr1 force ?x ())) <> ((bstr (N ?x))) ((bstr1 force ?x ()))
@ -414,4 +414,4 @@
<> ((hdigit 0 1 1 1)) (e) <> ((hdigit 0 1 1 1)) (e)
<> ((hdigit 1 1 1 1)) (f) <> ((hdigit 1 1 1 1)) (f)
(ostr (pow (nat 19) (nat 19))) (str (nat 999))