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

functors: fix functor syntax for new words.

locals-and-roots
Doug Coleman 2016-06-03 19:48:46 -07:00
parent 41b3d5bb0a
commit cf37bbcf70
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
language/functors/functors.factor
View File

@ -71,10 +71,18 @@ FUNCTOR-SYNTAX: SINGLETON:
scan-param suffix! scan-param suffix!
\ define-singleton-class suffix! ; \ define-singleton-class suffix! ;
FUNCTOR-SYNTAX: singleton:
scan-param suffix!
\ define-singleton-class suffix! ;
FUNCTOR-SYNTAX: MIXIN: FUNCTOR-SYNTAX: MIXIN:
scan-param suffix! scan-param suffix!
\ define-mixin-class suffix! ; \ define-mixin-class suffix! ;
FUNCTOR-SYNTAX: mixin:
scan-param suffix!
\ define-mixin-class suffix! ;
FUNCTOR-SYNTAX: M: FUNCTOR-SYNTAX: M:
scan-param suffix! scan-param suffix!
scan-param suffix! scan-param suffix!
@ -98,6 +106,10 @@ FUNCTOR-SYNTAX: SYMBOL:
scan-param suffix! scan-param suffix!
\ define-symbol suffix! ; \ define-symbol suffix! ;
FUNCTOR-SYNTAX: symbol:
scan-param suffix!
\ define-symbol suffix! ;
FUNCTOR-SYNTAX: SYNTAX: FUNCTOR-SYNTAX: SYNTAX:
scan-param suffix! scan-param suffix!
parse-definition* parse-definition*
@ -111,6 +123,7 @@ FUNCTOR-SYNTAX: INSTANCE:
FUNCTOR-SYNTAX: GENERIC: FUNCTOR-SYNTAX: GENERIC:
scan-param suffix! scan-param suffix!
scan-effect suffix! scan-effect suffix!
";" expect
\ define-simple-generic* suffix! ; \ define-simple-generic* suffix! ;
FUNCTOR-SYNTAX: MACRO: FUNCTOR-SYNTAX: MACRO:
@ -119,6 +132,7 @@ FUNCTOR-SYNTAX: MACRO:
\ define-macro suffix! ; \ define-macro suffix! ;
FUNCTOR-SYNTAX: inline [ last-word make-inline ] append! ; FUNCTOR-SYNTAX: inline [ last-word make-inline ] append! ;
FUNCTOR-SYNTAX: @inline [ last-word make-inline ] append! ;
FUNCTOR-SYNTAX: call-next-method T{ fake-call-next-method } suffix! ; FUNCTOR-SYNTAX: call-next-method T{ fake-call-next-method } suffix! ;