new accessor

db4
Doug Coleman 2008-08-29 16:55:28 -05:00
parent 759f1de159
commit b7cb19a86e
1 changed files with 1 additions and 1 deletions

View File

@ -44,7 +44,7 @@ M: string error. print ;
: restart. ( restart n -- )
[
1+ dup 3 <= [ ":" % # " " % ] [ # " :res " % ] if
restart-name %
name>> %
] "" make print ;
: restarts. ( -- )