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)]
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
