crcx avatar crcx committed c077d8f Draft

introduce :doc into the standard image

Comments (0)

Files changed (2)

 ( Copyright [c] 2009 - 2010, Luke Parrish                                     )
 ( Copyright [c] 2010,        Marc Simpson                                     )
 ( Copyright [c] 2010,        Jay Skeer                                        )
+( Copyright [c] 2012,        Michal J Wallace                                 )
 ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
 
 
 i: (string)    ( a-a ) repeat @+ 0; drop, again ;
 t: string      ( -   ) pop, (string) 1-, push, ;
 t: keepString  ( a-a ) ' string # , here swap, $ ;
+t: :doc        ( $- )  keepString last # @, d->doc !, ;
 
 ( Numbers [Parsing & Display] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
 4 elements #value num negate? flag
 ' <              word: <              ' >            word: >
 ' <=             word: <=             ' >=           word: >=
 ' string         word: string
+' :doc           word: :doc
 
 ( these will replace = and <> in future Retro images )
 ' =              word: ==             ' <>           word: !=

Binary file modified.

Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.