From ddb5c7ef36ac63661f998612a398d6d278321546 Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Thu, 22 Dec 2022 14:33:04 -0600
Subject: [PATCH] compat: Fix parameter setting.

* gash/compat.scm [mes] (make-parameter): Add missing argument to
'fluid-set!' invocation.
---
 gash/compat.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gash/compat.scm b/gash/compat.scm
index eb6da7e..40830e3 100644
--- a/gash/compat.scm
+++ b/gash/compat.scm
@@ -131,7 +131,7 @@
             (if (eq? new-value *fluid-accessor*)
                 fluid
                 (let ((old-value (fluid-ref fluid)))
-                  (fluid-set! new-value)
+                  (fluid-set! fluid new-value)
                   old-value))))))
 
   (define-syntax-rule (parameterize ((param value) ...) body ...)