diff --git a/prelude.f b/prelude.f index 2a98be9..95297b5 100644 --- a/prelude.f +++ b/prelude.f @@ -38,6 +38,18 @@ : RECURSE LATEST @ >CFA , ; IMMEDIATE +\ Block comments (with nesting) + +: ( + BEGIN + KEY DUP + 40 = IF RECURSE THEN + 41 = + UNTIL +; IMMEDIATE + +( ( Take that, C ) ) + \ Peripheral register addresses : TXBUF 0 ;