From 6d8b4c989a3f6d0365b49f0c7b3eb418bffec2f4 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 13 Nov 2019 08:07:07 +0100
Subject: [PATCH] mes: Resurrect cell:type-name.

* mes/module/mes/type-0.mes (cell:type-name): Resurrect.
---
 mes/module/mes/type-0.mes | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mes/module/mes/type-0.mes b/mes/module/mes/type-0.mes
index beefbf06..083a26b6 100644
--- a/mes/module/mes/type-0.mes
+++ b/mes/module/mes/type-0.mes
@@ -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>))