From eeb4f8e53419550e6de80010fbcdcf6da6da1f5e Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Fri, 12 Dec 2008 19:36:15 +0000
Subject: [PATCH] added integer support to deep_copy

svn: r12814
---
 src/mzscheme/src/places.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/mzscheme/src/places.c b/src/mzscheme/src/places.c
index b2acfa48b7..b0bb6c16ca 100644
--- a/src/mzscheme/src/places.c
+++ b/src/mzscheme/src/places.c
@@ -171,6 +171,10 @@ static void load_namespace_utf8(Scheme_Object *namespace_name) {
 Scheme_Object *scheme_places_deep_copy(Scheme_Object *so)
 {
   Scheme_Object *new_so = so;
+  if (SCHEME_INTP(so)) {
+    return so;
+  }
+
   switch (so->type) {
     case scheme_char_string_type: /*43*/
       new_so = scheme_make_sized_offset_char_string(SCHEME_CHAR_STR_VAL(so), 0, SCHEME_CHAR_STRLEN_VAL(so), 1);