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: list ;
VARIANT-MEMBER: list nil VARIANT-MEMBER: list nil ;
VARIANT-MEMBER: list cons: { { first object } { rest list } } VARIANT-MEMBER: list cons: { { first object } { rest list } } ;
""" } } ; """ } } ;
HELP: match HELP: match

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

@ -23,8 +23,8 @@ VARIANT: list
{ nil t } [ list initial-value ] unit-test { nil t } [ list initial-value ] unit-test
VARIANT: list2 ; VARIANT: list2 ;
VARIANT-MEMBER: list2 nil2 VARIANT-MEMBER: list2 nil2 ;
VARIANT-MEMBER: list2 cons2: { { first object } { rest list2 } } VARIANT-MEMBER: list2 cons2: { { first object } { rest list2 } } ;
{ t } [ nil2 list2? ] unit-test { t } [ nil2 list2? ] unit-test
{ t } [ 1 nil2 <cons2> 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: SYNTAX: VARIANT-MEMBER:
scan-word scan-word
scan-token parse-variant-member scan-token parse-variant-member
define-variant-class-member ; define-variant-class-member ";" expect ;
MACRO: unboa ( class -- quot ) MACRO: unboa ( class -- quot )
<wrapper> \ boa [ ] 2sequence [undo] ; <wrapper> \ boa [ ] 2sequence [undo] ;