Re: [Chicken-users] :optional & chicken4

[Kon Lovett]

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))]
>         [syms
>           (cond
>             [(symbol? syms) (list syms)]
>
>
> _______________________________________________
> Chicken-users mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/chicken-users

Best Wishes,
Kon