Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #871 from dpk/fix-syntax-tests

Browse source 
Fix syntax-tests to use mutable-environment
This commit is contained in:
Alex Shinn 2022-10-30 13:40:54 +09:00 • committed by GitHub
commit d29657811c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Makefile
View file

@ -269,13 +269,16 @@ test-r5rs: chibi-scheme$(EXE)
test-r7rs: chibi-scheme$(EXE) test-r7rs: chibi-scheme$(EXE)
$(CHIBI) tests/r7rs-tests.scm $(CHIBI) tests/r7rs-tests.scm
test-syntax: chibi-scheme$(EXE)
$(CHIBI) tests/syntax-tests.scm
test: test-r7rs test: test-r7rs
test-safe-string-cursors: chibi-scheme$(EXE) test-safe-string-cursors: chibi-scheme$(EXE)
$(CHIBI) -Dsafe-string-cursors tests/r7rs-tests.scm $(CHIBI) -Dsafe-string-cursors tests/r7rs-tests.scm
$(CHIBI) -Dsafe-string-cursors tests/lib-tests.scm $(CHIBI) -Dsafe-string-cursors tests/lib-tests.scm
test-all: test test-libs test-ffi test-division test-all: test test-syntax test-libs test-ffi test-division
test-dist: test-all test-memory test-build test-dist: test-all test-memory test-build

4
tests/syntax-tests.scm
View file

@ -3,7 +3,7 @@
(modules (modules
(import (chibi) (import (chibi)
(only (chibi test) test-begin test test-error test-end) (only (chibi test) test-begin test test-error test-end)
(only (meta) environment))) (only (meta) mutable-environment)))
(else #f)) (else #f))
(test-begin "syntax") (test-begin "syntax")
@ -84,7 +84,7 @@
;; this could be fixed in theory) ;; this could be fixed in theory)
(modules (modules
(test-begin "identifier syntax") (test-begin "identifier syntax")
(define syntax-test-env (environment '(chibi) '(chibi ast))) (define syntax-test-env (mutable-environment '(chibi) '(chibi ast)))
(eval (eval
'(define-syntax low-level-id-macro '(define-syntax low-level-id-macro