From c0936b3db6dfa853f6d482ba9bc802acff4d4deb Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Wed, 4 Jun 2008 20:16:51 +0000
Subject: [PATCH] add expand and expand-once

svn: r10133

original commit: 6ec49385a3309e105d7fdf2c4fec61650ac8dc3e
---
 collects/typed-scheme/private/base-env.ss | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss
index 5e49e8f7..e03ffa73 100644
--- a/collects/typed-scheme/private/base-env.ss
+++ b/collects/typed-scheme/private/base-env.ss
@@ -480,6 +480,9 @@
      
      ;; syntax operations
      
+     [expand (-> (-Syntax Univ) (-Syntax Univ))]
+     [expand-once (-> (-Syntax Univ) (-Syntax Univ))]
+     
      [syntax-source (-poly (a) (-> (-Syntax a) Univ))]
      [syntax-position (-poly (a) (-> (-Syntax a) (-opt N)))]
      [datum->syntax (cl->*