udpate to new ?^ register
This commit is contained in:
parent
dcd8b283e5
commit
9ebbcf7d08
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue