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

fix bug in mashaling paths

Browse Source 
The change in commit fb8e08a2ac could lose part of a relative path.
This commit is contained in:
Matthew Flatt 2015-09-05 14:09:05 -06:00
parent 16c198805b
commit c3f876d2f7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/file.c
View File

@ -5679,7 +5679,7 @@ Scheme_Object *scheme_extract_relative_to(Scheme_Object *obj, Scheme_Object *dir
while (SCHEME_PAIRP(oe)) { while (SCHEME_PAIRP(oe)) {
if (cache) { if (cache) {
obj = scheme_make_pair(to_bytes(SCHEME_CAR(oe)), scheme_null); obj = scheme_make_pair(to_bytes(SCHEME_CAR(oe)), obj);
} else { } else {
a[0] = obj; a[0] = obj;
a[1] = SCHEME_CAR(oe); a[1] = SCHEME_CAR(oe);