From 2cc86b1e435ecdcc7133d6b4826d83cc48151969 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 17 Feb 1999 22:31:31 +0000
Subject: [PATCH] .

original commit: 3dcde4f2064291e0848d5031416f17d7cf9aa727
---
 collects/tests/mzscheme/unitsig.ss | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss
index 363266e..fe26eed 100644
--- a/collects/tests/mzscheme/unitsig.ss
+++ b/collects/tests/mzscheme/unitsig.ss
@@ -174,6 +174,16 @@
 
 (test 9 'include (invoke-unit/sig i1@))
 
+;; Nested includes, macros that expand to `(include ...)'
+(define i1.5@
+  (unit/sig 
+   ()
+   (import)
+   
+   (include "uinc3.ss")))
+
+(test 9 'include (invoke-unit/sig i1.5@))
+
 (define i2@
   (unit/sig 
    ()