1b655593ed
FossilOrigin-Name: 8a3b4337b91d6befd06c31fa8b0926ef342ef09f4480b821fa605f5b57235fdb
775 B
775 B
RETRO Cross Reference
Definitions
RETRO :name ; ANS : name ;
Numbers
RETRO #100 #-12 ANS 100 -12
Characters
RETRO $A $D ANS CHAR A CHAR D
RETRO :foo $A ; ANS : foo [CHAR] A ;
Comments
RETRO (This_is_a_comment) ANS ( This is a comment )
Pointers
RETRO &Compiler ANS ' Compiler RETRO :foo &Heap ; ANS : foo ['] Heap ;
Conditionals
RETRO (flag) [ 'TRUE ] if ANS ( flag ) IF s" TRUE" THEN
RETRO (flag) [ 'FALSE ] -if ANS ( flag ) NOT IF s" FALSE" THEN
RETRO (flag) [ 'TRUE ] [ 'FALSE ] choose ANS ( flag ) IF s" TRUE" ELSE s" FALSE" THEN
RETRO conditionals can be used outside of definitions, ANS ones can not.