new accessor
parent
759f1de159
commit
b7cb19a86e
|
@ -44,7 +44,7 @@ M: string error. print ;
|
||||||
: restart. ( restart n -- )
|
: restart. ( restart n -- )
|
||||||
[
|
[
|
||||||
1+ dup 3 <= [ ":" % # " " % ] [ # " :res " % ] if
|
1+ dup 3 <= [ ":" % # " " % ] [ # " :res " % ] if
|
||||||
restart-name %
|
name>> %
|
||||||
] "" make print ;
|
] "" make print ;
|
||||||
|
|
||||||
: restarts. ( -- )
|
: restarts. ( -- )
|
||||||
|
|
Loading…
Reference in New Issue