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

removing test-error cases that would trigger a compile-time error in chicken

Browse source
This commit is contained in:
Alex Shinn 2016-03-19 15:40:00 +09:00
parent 2e0aa1b36d
commit 3dcac282ad
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/term/ansi-test.sld
View file

@ -38,16 +38,16 @@
((test-escape-procedure p s) ((test-escape-procedure p s)
(begin (begin
(test-assert (procedure? p)) (test-assert (procedure? p))
(test-error (p #f)) ;;(test-error (p #f))
(test s (p)))))) (test s (p))))))
(define-syntax test-wrap-procedure (define-syntax test-wrap-procedure
(syntax-rules () (syntax-rules ()
((test-wrap-procedure p s) ((test-wrap-procedure p s)
(begin (begin
(test-assert (procedure? p)) (test-assert (procedure? p))
(test-error (p)) ;; (test-error (p))
(test-error (p #f)) ;; (test-error (p #f))
(test-error (p "" #f)) ;; (test-error (p "" #f))
(test (p "FOO") (test (p "FOO")
"FOO" "FOO"
(parameterize ((ansi-escapes-enabled? #f)) (p "FOO"))) (parameterize ((ansi-escapes-enabled? #f)) (p "FOO")))