From a11cd5be4819301a86dca98238f77d6e766f5197 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 12 Nov 2007 05:05:27 -0500 Subject: [PATCH] * Added an internal library to makefile.ss just to make sure I use the feature daily. --- scheme/makefile.ss | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/scheme/makefile.ss b/scheme/makefile.ss index 85d8074..ac09622 100755 --- a/scheme/makefile.ss +++ b/scheme/makefile.ss @@ -1367,11 +1367,15 @@ (cdr x))) (for-each f identifier->library-map)) -(define (make-collection) - (let ([set '()]) - (case-lambda - [() set] - [(x) (set! set (cons x set))]))) +(library (ikarus makefile collections) + (export make-collection) + (import (rnrs)) + (define (make-collection) + (let ([set '()]) + (case-lambda + [() set] + [(x) (set! set (cons x set))])))) +(import (ikarus makefile collections)) (define (assq1 x ls) (let f ([x x] [ls ls] [p #f])