From 887552b49fe6815cfeff9cc3053efaca38d0f8c7 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 7 May 2007 22:30:27 -0400 Subject: [PATCH] added: src/tests.libraries.ss --- src/tests.libraries.ss | 46 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 src/tests.libraries.ss diff --git a/src/tests.libraries.ss b/src/tests.libraries.ss new file mode 100644 index 0000000..91b6322 --- /dev/null +++ b/src/tests.libraries.ss @@ -0,0 +1,46 @@ + + +(library (F) + (export f) + (import (ikarus)) + (define f + (lambda (x) 12)) + (printf "F invoked\n")) + +(library (G) + (export) + (import (ikarus) (F)) + (define-syntax t f) + (printf "G invoked: f=~s\n" t)) + +(library (Q) + (export foo) + (import (ikarus)) + (define-record foo (bar baz))) + +(library (R) + (export) + (import (ikarus) (Q)) + (printf "RTD=~s\n" (type-descriptor foo))) + +(invoke (R)) + +(library (F0) + (export f) + (import (ikarus)) + (define g 17) + (define-syntax f + (lambda (x) #'h)) + (define-syntax h + (lambda (x) #'g))) + +(library (F0 client) + (export) + (import (ikarus) (F0)) + (unless (= (f) 17) + (error #f "F0 client")) + (printf "F0 client ok\n")) + +(invoke (F0 client)) + +