From 3f6c5cc36a875b74b67ec11c55181034a62c894e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 7 Jul 2023 10:22:08 +0200
Subject: [PATCH] Fix parameter ducking and remove bst-tests running.

---
 src/duck.scm     | 2 +-
 src/util-bst.scm | 3 ---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/duck.scm b/src/duck.scm
index c1438cc..87f9378 100644
--- a/src/duck.scm
+++ b/src/duck.scm
@@ -53,7 +53,7 @@
       (define var val))
 
      ((_ (define/doc var doc arg (make-parameter val)))
-      (define var val))
+      (define var (make-parameter val)))
 
      ((_ (define* var val))
       (define* var val))
diff --git a/src/util-bst.scm b/src/util-bst.scm
index f8a33ca..bb9c5a7 100644
--- a/src/util-bst.scm
+++ b/src/util-bst.scm
@@ -420,6 +420,3 @@
     ))
 
  )
-
-(import util-bst)
-(util-bst-tests!)