Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. C" [DEFINED]" FIND NIP 0=
  2. [IF]
  3. : [DEFINED] ( -- f ) \ "name"
  4.   NextWord  SFIND  IF DROP TRUE ELSE 2DROP FALSE THEN
  5. ; IMMEDIATE
  6.  
  7. : [UNDEFINED]  ( -- f ) \ "name"
  8.   POSTPONE [DEFINED] 0=
  9. ; IMMEDIATE
  10. [THEN]
  11.  
  12. : [IFDEF]
  13.     POSTPONE [DEFINED]
  14.     0= IF POSTPONE [ELSE] THEN
  15. ; IMMEDIATE
  16.  
  17. : [IFNDEF]
  18.     POSTPONE [UNDEFINED]
  19.     0= IF POSTPONE [ELSE] THEN
  20. ; IMMEDIATE
  21.  
  22.