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

pos: delete vocab from unmaintained 

It was only useful with the self vocab, which is long gone.
char-rename
Alexander Iljin 2017-03-16 19:11:55 +03:00 committed by John Benediktsson
parent 6819db7e8f
commit 60044b411e
2 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
unmaintained/pos/authors.txt
View File

@ -1 +0,0 @@
Eduardo Cavazos

22
unmaintained/pos/pos.factor
View File

@ -1,22 +0,0 @@
USING: kernel math math.functions math.vectors sequences self
accessors ;
IN: pos
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TUPLE: pos val ;
C: <pos> pos
: pos> ( -- val ) self> val>> ;
: >pos ( val -- ) self> val<< ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: distance ( pos pos -- n ) val>> swap val>> v- [ sq ] map-sum sqrt ;
: move-by ( point -- ) pos> v+ >pos ;