mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

* guile-config.in (build-link): Correct non-RnRS usage of internal

Browse source 
defines.
This commit is contained in:
Mikael Djurfeldt 1999-07-29 18:12:01 +00:00
parent b09ef6795d
commit 6073aaf201
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guile-config/guile-config.in
View file

@ -123,10 +123,6 @@
;;; now, we're just going to reach into Guile's configuration info and ;;; now, we're just going to reach into Guile's configuration info and
;;; hack it out. ;;; hack it out.
(define (build-link args) (define (build-link args)
(if (> (length args) 0)
(error
(string-append program-name
" link: arguments to subcommand not yet implemented")))
;; If PATH has the form FOO/libBAR.a, return the substring ;; If PATH has the form FOO/libBAR.a, return the substring
;; BAR, otherwise return #f. ;; BAR, otherwise return #f.
@ -139,6 +135,11 @@
(make-shared-substring base 3 (- len 2)) (make-shared-substring base 3 (- len 2))
#f))) #f)))
(if (> (length args) 0)
(error
(string-append program-name
" link: arguments to subcommand not yet implemented")))
(let* ((flags (let* ((flags
(let loop ((libs (let loop ((libs
;; Get the string of linker flags we used to build ;; Get the string of linker flags we used to build