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

syntax

This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-12-30 17:42:21 +01:00
parent 6cd821cfb7
commit b817aeffa7
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mes/module/mes/syntax.mes
View File

@ -25,7 +25,15 @@
;;; syntax-rules is adapted from scheme48-1.1/scheme/alt/syntax.scm
;;; Code:
(mes-use-module (mes scm))
(define-module (mes syntax)
#:export (define-syntax
define-syntax-rule
syntax-error
silent-syntax-error
id-pattern
let-syntax))
(include-from-path "mes/syntax.scm")
(define (syntax-error message thing)

5
tests/syntax.test
View File

@ -1,5 +1,7 @@
#! /bin/sh
# -*-scheme-*-
MES_BOOT=boot-5.mes
export MES_BOOT
exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests syntax)' -s "$0" "$@"
!#
@ -27,9 +29,6 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
#:use-module (mes mes-0)
#:use-module (mes test))
(mes-use-module (mes test))
(mes-use-module (mes syntax))
(pass-if "first dummy" #t)
(pass-if-not "second dummy" #f)