maintain gml, euler, flatland, pong, multi-methods, pair-rockets, variables.

locals-and-roots
John Benediktsson 2016-03-30 10:29:58 -07:00
parent 4138ac0654
commit a82ae0027d
54 changed files with 4 additions and 4 deletions

View File

@ -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 } ;

View File

@ -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 } }" }
}
;