test: Resurrect running boot tests on Guile.

[mes.git] / module / mes / guile.scm

diff --git a/module/mes/guile.scm b/module/mes/guile.scm
index 451843b4aeff6ebd616b00bdbcfddb6a2410f469..26fc2cc7d0be1a7866383dc8c5b3c4191109c487 100644 (file)
--- a/module/mes/guile.scm
+++ b/module/mes/guile.scm
@@ -47,6 +47,7 @@
             core:type
             %compiler
             equal2?
+            keyword->string
             pmatch-car
             pmatch-cdr
             )
@@ -85,6 +86,7 @@
   (define <cell:vector> 15)
 
   (define %compiler "gnuc")
+  (define keyword->string (compose symbol->string keyword->symbol))
 
   (define (core:type x)
     (cond ((guile:keyword? x) <cell:keyword>)