artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Add %program to mes-compatibility for Guile.

Browse source 
This fixes running scaffold/boot/gc.scm with Guile.

* module/mes/guile.scm (%program): Define and export.
This commit is contained in:
Ekaitz Zarraga 2023-08-24 15:12:58 +02:00 committed by Janneke Nieuwenhuizen
parent d5ba672301
commit ff02777236
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
module/mes/guile.scm
View file

@ -2,6 +2,7 @@
;;; GNU Mes --- Maxwell Equations of Software ;;; GNU Mes --- Maxwell Equations of Software
;;; Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2023 Ekaitz Zarraga <ekaitz@elenq.tech>
;;; ;;;
;;; This file is part of GNU Mes. ;;; This file is part of GNU Mes.
;;; ;;;
@ -23,8 +24,7 @@
;;; Code: ;;; Code:
(define-module (mes guile) (define-module (mes guile)
#:export ( #:export (<cell:char>
<cell:char>
<cell:keyword> <cell:keyword>
<cell:number> <cell:number>
<cell:pair> <cell:pair>
@ -34,6 +34,8 @@
%arch %arch
%compiler %compiler
%program
append2 append2
core:apply core:apply
core:car core:car
@ -46,14 +48,10 @@
core:write-error core:write-error
core:write-port core:write-port
core:type core:type
%compiler
equal2? equal2?
keyword->string keyword->string
pmatch-car pmatch-car
pmatch-cdr pmatch-cdr))
)
;;#:re-export (open-input-file open-input-string with-input-from-string)
)
(cond-expand (cond-expand
(guile-2) (guile-2)
@ -91,10 +89,11 @@
(define <cell:string> 10) (define <cell:string> 10)
(define <cell:symbol> 11) (define <cell:symbol> 11)
(define <cell:vector> 15) (define <cell:vector> 15)
(define %arch (car (string-split %host-type #\-))) (define %arch (car (string-split %host-type #\-)))
(define %compiler "gnuc") (define %compiler "gnuc")
(define %program #f)
(define %compiler "gnuc")
(define keyword->string (compose symbol->string keyword->symbol)) (define keyword->string (compose symbol->string keyword->symbol))
(define (core:type x) (define (core:type x)