[Chicken-users] :optional & chicken4

[F. Wittenberger]

Hi all,

:optional seems not available in chicken4.

Not a big deal.

I came across it in the environments.scm code.  Here the fix:

===================================================================
--- chicken/environments.scm    (Revision 2087)
+++ chicken/environments.scm    (Arbeitskopie)
@@ -183,7 +183,7 @@
 
 (define (make-environment . extendable?)
   (##sys#make-structure 'environment
-    (%make-environment-table) (:optional extendable? #f)) )
+    (%make-environment-table) (and (pair? extendable?) (car
extendable?))) )
 
 (define (environment? obj)
   (##sys#structure? obj 'environment) )
@@ -301,7 +301,7 @@
 (define (environment-remove! env syms . silent-flag)
   (##sys#check-structure env 'environment 'environment-remove!)
   (let ([et (%environment-table env)]
-        [silent? (:optional silent-flag #f)]
+        [silent? (and (pair? silent-flag) (car silent-flag))]
         [syms
           (cond
             [(symbol? syms) (list syms)]