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

defines.

1 files 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