Permalink
Browse files

exported a few more useful functions

  • Loading branch information...
1 parent dd0ac60 commit 8fcd1d2a608066a729ede91af40a31656d2e88ff @vegashacker committed Apr 21, 2009
Showing with 5 additions and 2 deletions.
  1. +5 −2 util.scm
View
@@ -5,8 +5,8 @@
reverse! zip unzip1 unzip2 (remove removef)
delete-duplicates! concatenate any iota
alist-cons break cons* delete-duplicates every fold-right reduce find
- lset-difference lset-union pair-fold-right span take delete
- drop fold pair-fold delete!
+ lset-difference lset-union pair-fold-right unfold span take take-while
+ delete drop fold pair-fold delete! list-index
)
(lib "26.ss" "srfi")
(lib "2.ss" "srfi")
@@ -42,6 +42,7 @@
unzip2
concatenate
take
+ take-while
take-up-to
drop
drop-up-to
@@ -88,13 +89,15 @@
pair-fold
pair-fold-right
file-line-fold
+ unfold
cons*
cons-to-end
listify
alist-cons
alist-merge
receive
list-join
+ list-index
aif
awhen

0 comments on commit 8fcd1d2

Please sign in to comment.