Sorry, naturally I forgot the patch:
--- a/expand.scm
+++ b/expand.scm
@@ -120,7 +120,7 @@
(for-each
(cut ##sys#put! <> '##core#real-name <>)
aliases vars)
- (append (map cons vars aliases) se))
+ (append (map (lambda (x y) (cons x y)) vars aliases) se)) ; inline cons
cheers,
felix
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
