From 6073aaf201c27f26473a7b87aeee0a09e784234c Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 29 Jul 1999 18:12:01 +0000 Subject: [PATCH] * guile-config.in (build-link): Correct non-RnRS usage of internal defines. --- guile-config/guile-config.in | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/guile-config/guile-config.in b/guile-config/guile-config.in index e906cb2f2..3705a9082 100644 --- a/guile-config/guile-config.in +++ b/guile-config/guile-config.in @@ -123,10 +123,6 @@ ;;; now, we're just going to reach into Guile's configuration info and ;;; hack it out. (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 ;; BAR, otherwise return #f. @@ -139,6 +135,11 @@ (make-shared-substring base 3 (- len 2)) #f))) + (if (> (length args) 0) + (error + (string-append program-name + " link: arguments to subcommand not yet implemented"))) + (let* ((flags (let loop ((libs ;; Get the string of linker flags we used to build