From a0bd894bbc01c9897a6dbe4d5da0528f6aa495de Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 27 Sep 2021 08:21:27 -0400 Subject: Fix error reporting when dynamic-link fails. --- sdl2/config.scm.in | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'sdl2/config.scm.in') diff --git a/sdl2/config.scm.in b/sdl2/config.scm.in index b1343dd..290dd6e 100644 --- a/sdl2/config.scm.in +++ b/sdl2/config.scm.in @@ -12,8 +12,8 @@ ;; library load path as a fallback method. Useful when restributing ;; relocatable builds. (define (dynamic-link* names) - (let loop ((names names)) - (match names + (let loop ((names* names)) + (match names* (() (error "could not find library" names)) ((name . rest) -- cgit v1.2.3