andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mes: Resurrect cell:type-name. 

* mes/module/mes/type-0.mes (cell:type-name): Resurrect.
This commit is contained in:
Jan Nieuwenhuizen 2019-11-13 08:07:07 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 49f4378b6e
commit cc9f93cde0
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mes/module/mes/type-0.mes
View File

@ -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>))