* Added an internal library to makefile.ss just to make sure I use
the feature daily.
This commit is contained in:
parent
c26ef04965
commit
a11cd5be48
|
@ -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])
|
||||
|
|
Loading…
Reference in New Issue