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

variants: Add a ";" to VARIANT-MEMBER:

db4
Doug Coleman 2015-07-21 17:00:13 -07:00
parent ccf9e75b79
commit cfb1b973ff
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/variants/variants-docs.factor
View File

@ -32,8 +32,8 @@ IN: scratchpad
VARIANT: list ;
VARIANT-MEMBER: list nil
VARIANT-MEMBER: list cons: { { first object } { rest list } }
VARIANT-MEMBER: list nil ;
VARIANT-MEMBER: list cons: { { first object } { rest list } } ;
""" } } ;
HELP: match

4
extra/variants/variants-tests.factor
View File

@ -23,8 +23,8 @@ VARIANT: list
{ nil t } [ list initial-value ] unit-test
VARIANT: list2 ;
VARIANT-MEMBER: list2 nil2
VARIANT-MEMBER: list2 cons2: { { first object } { rest list2 } }
VARIANT-MEMBER: list2 nil2 ;
VARIANT-MEMBER: list2 cons2: { { first object } { rest list2 } } ;
{ t } [ nil2 list2? ] unit-test
{ t } [ 1 nil2 <cons2> list2? ] unit-test

2
extra/variants/variants.factor
View File

@ -50,7 +50,7 @@ SYNTAX: VARIANT:
SYNTAX: VARIANT-MEMBER:
scan-word
scan-token parse-variant-member
define-variant-class-member ;
define-variant-class-member ";" expect ;
MACRO: unboa ( class -- quot )
<wrapper> \ boa [ ] 2sequence [undo] ;