* Added an internal library to makefile.ss just to make sure I use

the feature daily.
This commit is contained in:
Abdulaziz Ghuloum 2007-11-12 05:05:27 -05:00
parent c26ef04965
commit a11cd5be48
1 changed files with 9 additions and 5 deletions

View File

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