new accessors

db4
Doug Coleman 2008-08-30 21:59:09 -05:00
parent ccd5b8ced4
commit 3891a7df74
1 changed files with 3 additions and 3 deletions

View File

@ -1,5 +1,5 @@
USING: kernel namespaces
USING: kernel namespaces accessors
math math.constants math.functions math.matrices math.vectors
sequences splitting grouping self math.trig ;
@ -11,9 +11,9 @@ C: <ori> ori
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: ori> ( -- val ) self> ori-val ;
: ori> ( -- val ) self> val>> ;
: >ori ( val -- ) self> set-ori-val ;
: >ori ( val -- ) self> (>>val) ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!