core: Document number->string INT-MIN failure with gcc-x86.

[mes.git] / module / mes / mes-0.scm

diff --git a/module/mes/mes-0.scm b/module/mes/mes-0.scm
index 773c0a1776d6881b63dfd12a1fd3d0cf584f5f59..7e92d664e5cf8b0e82c8da69b51d54b82be9034b 100644 (file)
--- a/module/mes/mes-0.scm
+++ b/module/mes/mes-0.scm
@@ -35,6 +35,8 @@
             guile?
             guile-1.8?
             guile-2?
+            %arch
+            %compiler
             ))
 
 (define-macro (mes-use-module . rest) #t)
@@ -45,3 +47,5 @@
 (define guile-2? (equal? (major-version) "2"))
 (define EOF (if #f #f))
 (define append2 append)
+(define %arch (car (string-split %host-type #\-)))
+(define %compiler "gcc")