mes: Resurrect cell:type-name.
* mes/module/mes/type-0.mes (cell:type-name): Resurrect.
This commit is contained in:
parent
6092c9a8f7
commit
77683b88ea
|
@ -45,7 +45,7 @@
|
|||
(cons <cell:broken-heart> (quote <cell:broken-heart>))))
|
||||
|
||||
(define (cell:type-name x)
|
||||
(cond ((assq (core:type x) cell:type-alist) => cdr)))
|
||||
(assq-ref cell:type-alist (core:type x)))
|
||||
|
||||
(define (bytes? x)
|
||||
(eq? (core:type x) <cell:bytes>))
|
||||
|
|
Loading…
Reference in New Issue