From def5bba06ab4f94fd166bcdff65dd4b374977a9f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 31 Aug 2016 03:05:34 -0400
Subject: [PATCH] Pass a value to (set!) a parameter object

Allow changing a parameter object by passing a value directly to it.
---
 scheme/base.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index c7c605eb..11e4c3bf 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -925,7 +925,9 @@
             ((eq? (car args) '<param-convert>)
              converter)
            (else
-             (error "bad parameter syntax" args))))))
+             ;(error "bad parameter syntax" args)
+             (set! value (converter (car args)))
+           )))))
     (define current-output-port
       (make-parameter (Cyc-stdout)))
     (define current-input-port