intern path values in bytecode

2015-09-01 15:54:41 -06:00 · 2015-09-01 15:54:41 -06:00 · 53821a4997
commit 53821a4997
parent 929db29b67
1 changed files with 7 additions and 1 deletions
--- a/racket/src/racket/src/print.c
+++ b/racket/src/racket/src/print.c
@ -2603,7 +2603,13 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
 	/* Needed for srclocs in procedure names */
 	Scheme_Object *idx;
 	int l;
-	
+
+        idx = scheme_hash_get(mt->intern_map, obj);
+        if (!idx)
+          scheme_hash_set(mt->intern_map, obj, obj);
+        else
+          obj = idx;
+        
        idx = get_symtab_idx(mt, obj);
 	if (idx) {
          print_symtab_ref(pp, idx);