From 4657b95713facffcde685b578ed19dbeb45624d0 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Sun, 24 Nov 2019 14:46:45 -0500 Subject: [PATCH] Fix 'let-values' where is an improper list. Fixes . Reported by Tim Gesthuizen . * module/srfi/srfi-11.scm (let-values): Swap 'new-tmp' and 'new-var' in the pair pattern, to match the code that creates those pairs. --- module/srfi/srfi-11.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/module/srfi/srfi-11.scm b/module/srfi/srfi-11.scm index 22bda21a2..42b8527ba 100644 --- a/module/srfi/srfi-11.scm +++ b/module/srfi/srfi-11.scm @@ -1,6 +1,7 @@ ;;; srfi-11.scm --- let-values and let*-values -;; Copyright (C) 2000, 2001, 2002, 2004, 2006, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2004, 2006, 2009, +;; 2019 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -91,7 +92,7 @@ (syntax (call-with-values (lambda () exp) (lambda (new-tmp ...) inner)))))) ((vars exp) - (with-syntax ((((new-tmp . new-var) ...) + (with-syntax ((((new-var . new-tmp) ...) (let lp ((vars (syntax vars))) (syntax-case vars () ((id . rest) -- 2.24.0