add renaming-import test

This commit is contained in:
Yuichi Nishiwaki 2014-07-28 02:00:54 +09:00
parent c8918b8e63
commit d45ab8f973
1 changed files with 11 additions and 0 deletions

11
t/renaming-import.scm Normal file
View File

@ -0,0 +1,11 @@
(define-library (foo)
(import (except (rename (prefix (only (scheme base) car cdr cons) my-)
(my-car my-kar)
(my-cdr my-kdr))
my-kar))
;; (import (rename (scheme base)
;; (car my-kar)
;; (cdr my-cdr)))
(export my-kdr my-cons))