You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- (module util (curry applied thunk just perhaps compose-symbols)
- (import scheme)
- (import chicken.base)
- (import srfi-13)
-
- (define (curry fn a)
- (lambda (b)
- (fn a b)))
-
- (define (applied fn)
- (curry apply fn))
-
- (define-syntax thunk
- (syntax-rules ()
- ((_ exp ...)
- (lambda () exp ...))))
-
- (define (just fn)
- (lambda args
- (fn)))
-
- (define (perhaps fn arg)
- (if arg
- (fn arg)
- arg))
-
- (define (compose-symbols . ln)
- (string->symbol (string-concatenate (intersperse (map symbol->string ln) "-")))))
|