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

forgot to wrap inline cond-expand defs in begin

Browse source
This commit is contained in:
Alex Shinn 2020-09-01 22:27:59 +09:00
parent e7e034dea0
commit e5cf364360
2 changed files with 43 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/diff-test.sld
View file

@ -7,6 +7,7 @@
(else
;; inline (chibi test) to avoid circular dependencies in snow
;; installations
(begin
(define-syntax test
(syntax-rules ()
((test expect expr)
@ -23,7 +24,7 @@
(define (test-begin name)
(display name))
(define (test-end)
(newline))))
(newline)))))
(begin
(define (run-tests)
(test-begin "diff")

6
lib/chibi/optional-test.sld
View file

@ -6,6 +6,7 @@
(else
;; inline (chibi test) to avoid circular dependencies in snow
;; installations
(begin
(define-syntax test
(syntax-rules ()
((test expect expr)
@ -19,6 +20,9 @@
(cond
((not pass?)
(display "\nFAIL: ") (write name) (newline))))))))
(define-syntax test-assert
(syntax-rules ()
((test-assert expr) (test #t expr))))
(define-syntax test-error
(syntax-rules ()
((test-error expr)
@ -26,7 +30,7 @@
(define (test-begin name)
(display name))
(define (test-end)
(newline))))
(newline)))))
(export run-tests)
(begin
(define (run-tests)