added test for no collisions between srfi/1/list and scheme/base
svn: r9419
This commit is contained in:
parent
bea035d04c
commit
e2c4500e41
|
@ -216,4 +216,9 @@
|
|||
(test long rd (append long (reverse long))) ; keeps first
|
||||
(test long rd (append* (map (lambda (x) (list x x)) long)))))
|
||||
|
||||
;; ---------- check no collisions with srfi/1 ----------
|
||||
(test (void)
|
||||
eval '(module foo scheme/base (require scheme/base srfi/1/list))
|
||||
(make-base-namespace))
|
||||
|
||||
(report-errs)
|
||||
|
|
Loading…
Reference in New Issue
Block a user