mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Change `compiled-file-name' to preserve the input file's directory.

Browse source 
* module/system/base/compile.scm (compiled-file-name): Prepend "(dirname
  file)" so that "guile-tools compile foo/bar.scm" produces
  "foo/bar.go", not "bar.go".
This commit is contained in:
Ludovic Courtès 2009-02-14 22:17:47 +01:00
parent 2cf1705c72
commit b96dac4d0e
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/system/base/compile.scm
View file

@ -1,6 +1,6 @@
;;; High-level compiler interface ;;; High-level compiler interface
;; Copyright (C) 2001 Free Software Foundation, Inc. ;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by ;; it under the terms of the GNU General Public License as published by
@ -124,10 +124,11 @@
".go") ".go")
(else (car %load-compiled-extensions))))) (else (car %load-compiled-extensions)))))
(let lp ((exts %load-extensions)) (let lp ((exts %load-extensions))
(cond ((null? exts) (string-append base cext)) (cond ((null? exts) (string-append file cext))
((string-null? (car exts)) (lp (cdr exts))) ((string-null? (car exts)) (lp (cdr exts)))
((string-suffix? (car exts) base) ((string-suffix? (car exts) base)
(string-append (string-append
(dirname file) "/"
(substring base 0 (substring base 0
(- (string-length base) (string-length (car exts)))) (- (string-length base) (string-length (car exts))))
cext)) cext))