[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Chicken-users] :optional & chicken4

From: F. Wittenberger
Subject: [Chicken-users] :optional & chicken4
Date: Mon, 06 Oct 2008 23:55:25 +0200

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))]
             [(symbol? syms) (list syms)]

reply via email to

[Prev in Thread] Current Thread [Next in Thread]