[Top][All Lists]

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

Re: [Chicken-users] :optional & chicken4

From: Kon Lovett
Subject: Re: [Chicken-users] :optional & chicken4
Date: Mon, 6 Oct 2008 19:48:34 -0700

On Oct 6, 2008, at 2:55 PM, Jörg F. Wittenberger wrote:

Hi all,

:optional seems not available in chicken4.

Deprecated (& removed I think) in Chicken 3. Use 'optional'.

BTW, there is a newer "environments" egg. However, not ported to "hygienic" Chicken yet.

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)]

Chicken-users mailing list

Best Wishes,

reply via email to

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