From 3840b6f50bd26c68a2ea6d4e577367746a75e7d3 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Mon, 28 Sep 2009 21:12:52 +0000
Subject: [PATCH] Precompute hash of scheme_default_prompt_tag

svn: r16149
---
 src/mzscheme/src/fun.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 899ff9e9e2..46ad663c6e 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -559,6 +559,7 @@ scheme_init_fun (Scheme_Env *env)
     Scheme_Object *a[1];
     a[0] = scheme_intern_symbol("default");
     scheme_default_prompt_tag = make_prompt_tag(1, a);
+    scheme_hash_key(SCHEME_PTR_VAL(scheme_default_prompt_tag));
   }
 
   REGISTER_SO(original_default_prompt);