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

factor: fix naming convention for more words.

locals-and-roots
Doug Coleman 2016-06-26 02:18:09 -07:00
parent ff6f1deddf
commit dadf13a846
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ffi/cuda/syntax/syntax.factor
View File

@ -13,6 +13,6 @@ SYNTAX: \ CUDA-FUNCTION:
scan-token [ create-word-in current-cuda-library get ] keep scan-token [ create-word-in current-cuda-library get ] keep
scan-c-args ";" expect define-cuda-function ; scan-c-args ";" expect define-cuda-function ;
SYNTAX: \ cuda-global: SYNTAX: \ CUDA-GLOBAL:
scan-token [ create-word-in current-cuda-library get ] keep scan-token [ create-word-in current-cuda-library get ] keep
define-cuda-global ; define-cuda-global ;

8
language/variables/variables.factor
View File

@ -14,7 +14,7 @@ GENERIC: variable-setter ( word -- word' ) ;
M: variable variable-setter "variable-setter" word-prop ; M: variable variable-setter "variable-setter" word-prop ;
M: local-reader variable-setter "local-writer" word-prop ; M: local-reader variable-setter "local-writer" word-prop ;
SYNTAX: \ set: SYNTAX: \ vset:
scan-object variable-setter suffix! ; scan-object variable-setter suffix! ;
: [variable-getter] ( variable -- quot ) : [variable-getter] ( variable -- quot )
@ -26,7 +26,7 @@ SYNTAX: \ set:
[ ( -- value ) define-inline ] [ ( -- value ) define-inline ]
[ [
[ [
[ name>> "set: " prepend <uninterned-word> ] [ name>> "vset: " prepend <uninterned-word> ]
[ over "variable-setter" set-word-prop ] bi [ over "variable-setter" set-word-prop ] bi
] dip ( value -- ) define-inline ] dip ( value -- ) define-inline
] bi-curry* bi ; ] bi-curry* bi ;
@ -77,10 +77,10 @@ PREDICATE: global-variable < variable
: define-global ( word -- ) : define-global ( word -- )
global-box new [ [global-getter] ] [ [global-setter] ] bi (define-variable) ; global-box new [ [global-getter] ] [ [global-setter] ] bi (define-variable) ;
SYNTAX: \ global: SYNTAX: \ GLOBAL:
scan-new-word define-global ; scan-new-word define-global ;
M: global-variable definer drop \ global: f ; M: global-variable definer drop \ GLOBAL: f ;
INTERSECTION: typed-global-variable INTERSECTION: typed-global-variable
global-variable typed-variable ; global-variable typed-variable ;