udpate to new ?^ register
This commit is contained in:
parent
dcd8b283e5
commit
9ebbcf7d08
|
@ -376,7 +376,7 @@
|
|||
<> (force (x ?t)) ((x force ?t))
|
||||
|
||||
-- ( emit )
|
||||
<> (emit force/r ?*) (?*)
|
||||
<> (emit force/r ?^) (?^)
|
||||
|
||||
-- ( to binary string )
|
||||
<> ((bstr (N ?x))) ((bstr1 force ?x ()))
|
||||
|
@ -414,4 +414,4 @@
|
|||
<> ((hdigit 0 1 1 1)) (e)
|
||||
<> ((hdigit 1 1 1 1)) (f)
|
||||
|
||||
(ostr (pow (nat 19) (nat 19)))
|
||||
(str (nat 999))
|
||||
|
|
Loading…
Reference in New Issue