Re: #1721: include file install w/ CHICKEN_INSTALL_PREFIX causes duplicated install prefix in final pathname

[Chicken Trac]

#1721: include file install w/ CHICKEN_INSTALL_PREFIX causes duplicated install
prefix in final pathname
-----------------------------------+---------------------
            Reporter:  Kon Lovett  |      Owner:  (none)
                Type:  defect      |     Status:  new
            Priority:  major       |  Milestone:  someday
           Component:  core tools  |    Version:  5.2.0
          Resolution:              |   Keywords:
Estimated difficulty:              |
-----------------------------------+---------------------

Comment (by Kon Lovett):

 (oops - may not be a prefix)
 #483 $ srcdiff ../multi-install-prefix/egg-compile.scm egg-compile.scm
 56,65c56
 < ;returns s2 w/o any, one, leading s1
 < (define (string-prefix-strip s1 s2)
 <   (let loop ((ls1 (string->list s1)) (ls2 (string->list s2)))
 <     (cond ((null? ls1)                  (list->string ls2))
 <           ((null? ls2)                  s2)
 <           ((char=? (car ls1) (car ls2)) (loop (cdr ls1) (cdr ls2)))
 <           (else                         s2)) ) )
 <
 < (define strip-install-prefix)
 < (define override-prefix)
 ---
 > (define override-prefix
 67,72d57
 <   (set! strip-install-prefix
 <     (lambda (pn)
 <       (if prefix
 <           (string-prefix-strip prefix pn)
 <           pn)))
 <   (set! override-prefix
 156c141,142
 <                         (strip-install-prefix dest*))))))
 ---
 >                         dest*)))))
 >

-- 
Ticket URL: <https://bugs.call-cc.org/ticket/1721#comment:1>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.