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

added help for MATCH-VARS:

chris.double 2006-09-09 03:42:07 +00:00
parent a0d5aa4042
commit 1313d68dc1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/match/match.facts
View File

@ -9,7 +9,7 @@ HELP: match
{ $examples { $examples
{ $example "MATCH-VARS: ?a ?b ;\n{ ?a { 2 ?b } 5 } { 1 { 2 3 } _ } match\n => H{ { ?a 1 } { ?b 3 } }" } { $example "MATCH-VARS: ?a ?b ;\n{ ?a { 2 ?b } 5 } { 1 { 2 3 } _ } match\n => H{ { ?a 1 } { ?b 3 } }" }
} }
{ $see-also match-cond } ; { $see-also match-cond POSTPONE: MATCH-VARS: } ;
HELP: match-cond HELP: match-cond
{ $values { "seq" "A sequence" } { "assoc" "A sequence of quotation pairs" } } { $values { "seq" "A sequence" } { "assoc" "A sequence of quotation pairs" } }
@ -17,7 +17,7 @@ HELP: match-cond
{ $examples { $examples
{ $example "MATCH-VARS: ?value ;\n{ increment ?value } {\n { { increment ?value } [ ?value do-something ] }\n { { decrement ?value } [ ?value do-something-else ] }\n { _ [ no-match-found ] }\n} match-cond" } { $example "MATCH-VARS: ?value ;\n{ increment ?value } {\n { { increment ?value } [ ?value do-something ] }\n { { decrement ?value } [ ?value do-something-else ] }\n { _ [ no-match-found ] }\n} match-cond" }
} }
{ $see-also match } ; { $see-also match POSTPONE: MATCH-VARS: } ;
HELP: MATCH-VARS: HELP: MATCH-VARS: