Removed obsolete vocabs

db4
Slava Pestov 2008-02-02 13:09:23 -06:00
parent 4b7034384c
commit f95ec523f7
5 changed files with 0 additions and 55 deletions

View File

@ -1 +0,0 @@
Eduardo Cavazos

View File

@ -1,38 +0,0 @@
USING: kernel quotations arrays sequences sequences.private macros ;
IN: macros.zoo
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! MACRO: narray ( n -- quot )
! dup [ f <array> ] curry
! swap <reversed> [
! [ swap [ set-nth-unsafe ] keep ] curry
! ] map concat append ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! MACRO: map-call-with ( quots -- )
! [ [ [ keep ] curry ] map concat ] keep length [ nip narray ] curry compose ;
! MACRO: map-call-with2 ( quots -- )
! dup >r
! [ [ 2dup >r >r ] swap append [ r> r> ] append ] map concat
! [ 2drop ] append
! r> length [ narray ] curry append ;
! MACRO: map-exec-with ( words -- ) [ 1quotation ] map [ map-call-with ] curry ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Conceptual implementation:
! : pcall ( seq quots -- seq ) [ call ] 2map ;
! MACRO: pcall ( quots -- )
! [ [ unclip ] swap append ] map
! [ [ r> swap add >r ] append ] map
! concat
! [ { } >r ] swap append ! pre
! [ drop r> ] append ; ! post

View File

@ -1 +0,0 @@
Eduardo Cavazos

View File

@ -1,14 +0,0 @@
USING: math arrays sequences kernel splitting strings ;
IN: strings.lib
: char>digit ( c -- i ) 48 - ;
: string>digits ( s -- seq ) [ char>digit ] { } map-as ;
: >Upper ( str -- str )
dup empty? [
unclip ch>upper 1string swap append
] unless ;
: >Upper-dashes ( str -- str )
"-" split [ >Upper ] map "-" join ;

View File

@ -1 +0,0 @@
collections