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 ;
|
||||
|
||||
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 } ;
|
||||
|
|
@ -6,9 +6,9 @@ HELP: =>
|
|||
{ $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." }
|
||||
{ $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