( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
( C and C++ style comments for Retro )
( Once loaded, you can do:           )
( /* comment goes here */            )
( // comment goes here               )
( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )

with quotes'
chain: comment'
: */   (  - ) "%%" find drop @d->xt do &ok :devector &notfound :devector ;
;chain

: /*   (  - ) &comment' .chain [ ] dup &ok :is &notfound :is ;
hide comment'
: //   ( "- ) @whitespace whitespace off [ 10 accept ] dip !whitespace ;
without