maintain gml, euler, flatland, pong, multi-methods, pair-rockets, variables.
parent
4138ac0654
commit
a82ae0027d
|
@ -53,7 +53,7 @@ TUPLE: exec-name < identity-tuple name ;
|
||||||
|
|
||||||
MEMO: exec-name ( string -- name ) name \ exec-name boa ;
|
MEMO: exec-name ( string -- name ) name \ exec-name boa ;
|
||||||
|
|
||||||
SYNTAX: exec" lexer get skip-blank parse-string exec-name suffix! ;
|
SYNTAX: exec" lexer get skip-blank parse-short-string exec-name suffix! ;
|
||||||
|
|
||||||
ERROR: unbound-name { name name } ;
|
ERROR: unbound-name { name name } ;
|
||||||
|
|
|
@ -6,9 +6,9 @@ HELP: =>
|
||||||
{ $syntax "a => b" }
|
{ $syntax "a => b" }
|
||||||
{ $description "Constructs a two-element array from the objects immediately before and after the " { $snippet "=>" } ". This syntax can be used inside sequence and assoc literals." }
|
{ $description "Constructs a two-element array from the objects immediately before and after the " { $snippet "=>" } ". This syntax can be used inside sequence and assoc literals." }
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $unchecked-example """USING: pair-rocket prettyprint ;
|
{ $unchecked-example "USING: pair-rocket prettyprint ;
|
||||||
|
|
||||||
H{ "foo" => 1 "bar" => 2 } ."""
|
H{ \"foo\" => 1 \"bar\" => 2 } ."
|
||||||
"""H{ { "foo" 1 } { "bar" 2 } }""" }
|
"H{ { \"foo\" 1 } { \"bar\" 2 } }" }
|
||||||
}
|
}
|
||||||
;
|
;
|
Loading…
Reference in New Issue