better behavior in 'same case

svn: r9375
2008-04-19 18:19:18 +00:00 · 2008-04-19 18:19:18 +00:00 · 52ca901576
commit 52ca901576
parent 9b0fc20d3e
1 changed files with 1 additions and 1 deletions
--- a/collects/setup/unpack.ss
+++ b/collects/setup/unpack.ss
@ -112,7 +112,7 @@
    (cond
      [(null? v) 'same]
      [(and (pair? v) (symbol? (car v)) (symbol=? (car v) 'same))
-       'same]
+       (list 'same (apply build-path 'same (cdr v)))]
      [(and (pair? v) (string? (car v)))
       (let ([location (string->loc (car v))])
         (list location (apply build-path (cdr v))))]