handle ._~~__ many/~[`n/0] compilation properly

Type was atom/%n, whould be cube/[0 atom/%n]
This commit is contained in:
Anton Dyudin 2016-01-04 17:07:11 -08:00
parent c0b5d12c59
commit 4e761e00cd

View File

@ -8797,7 +8797,8 @@
$(mew t.mew, rag q:(tock p.i.mew ^$(gen q.i.mew) rag))
[%dtkt *] %noun
[%dtls *] [%atom %$]
[%dtzy *] ?:(=(%f p.gen) ?>((lte q.gen 1) bool) [%atom p.gen])
[%dtzy *] ?: =(%n p.gen) ?>(=(0 q.gen) [%cube 0 [%atom %n]])
?:(=(%f p.gen) ?>((lte q.gen 1) bool) [%atom p.gen])
[%dtzz *] [%cube q.gen ?:(.?(q.gen) %noun [%atom p.gen])]
[%dttr *] %noun
[%dtts *] bool