suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added integer support to deep_copy

Browse Source 
svn: r12814
This commit is contained in:
Kevin Tew 2008-12-12 19:36:15 +00:00
parent bd5c06750b
commit eeb4f8e534
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/places.c
View File

@ -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);