steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vocab rename

matthew.willis 2006-07-22 21:50:36 +00:00
parent 23192d8aec
commit 01fa073af5
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/parser-combinators/lazy-examples.factor
View File

@ -22,8 +22,9 @@
! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
USING: lazy-lists math kernel sequences test ;
IN: lazy-examples IN: lazy-examples
USING: lazy math kernel sequences ;
: naturals 0 lfrom ; : naturals 0 lfrom ;
: positves 1 lfrom ; : positves 1 lfrom ;
@ -32,7 +33,7 @@ USING: lazy math kernel sequences ;
: powers-of-2 1 [ 2 * ] lfrom-by ; : powers-of-2 1 [ 2 * ] lfrom-by ;
: ones 1 [ ] lfrom-by ; : ones 1 [ ] lfrom-by ;
: squares naturals [ dup * ] lmap ; : squares naturals [ dup * ] lmap ;
: first-five-squares 5 squares ltake ; : first-five-squares 5 squares ltake list>array ;
: divisible-by? ( a b -- bool ) : divisible-by? ( a b -- bool )
#! Return true if a is divisible by b #! Return true if a is divisible by b

5
contrib/parser-combinators/lazy-tests.factor
View File

@ -21,9 +21,8 @@
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
USING: test kernel math io ; USING: lazy-lists test kernel math io ;
IN: temporary
IN: lazy
[ t ] [ nil nil? ] unit-test [ t ] [ nil nil? ] unit-test
[ 5 ] [ 5 lunit car ] unit-test [ 5 ] [ 5 lunit car ] unit-test

3
contrib/parser-combinators/lazy.factor
View File

@ -22,8 +22,9 @@
! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
IN: lazy
USING: kernel sequences math vectors arrays namespaces ; USING: kernel sequences math vectors arrays namespaces ;
IN: lazy-lists
TUPLE: promise quot forced? value ; TUPLE: promise quot forced? value ;