added test for no collisions between srfi/1/list and scheme/base

svn: r9419
This commit is contained in:
Eli Barzilay 2008-04-23 11:41:59 +00:00
parent bea035d04c
commit e2c4500e41

View File

@ -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)