kolibrios-fun/programs/develop/SPForth/devel/~af/lib/comments.f
Kirill Lipatov (Leency) 09488af869 KolSPForth12 uploaded to SVN
git-svn-id: svn://kolibrios.org@4867 a494cfbc-eb01-0410-851d-a64ba20cac60
2014-04-21 19:22:58 +00:00

10 lines
255 B
Forth

\ $Id: comments.f,v 1.2 2002/06/18 14:50:22 anfilat Exp $
\ ¥é¥ ®¤¨­ ¬­®£®áâà®ç­ë© ª®¬¥­â à¨© :-) (~ruvim)
: (* ( -- )
BEGIN
NextWord DUP 0=
IF NIP REFILL 0= IF DROP TRUE THEN
ELSE S" *)" COMPARE 0= THEN
UNTIL
; IMMEDIATE