From 82d589d807cd71f75eed0ba0d034d214ce9ea889 Mon Sep 17 00:00:00 2001 From: charles childers Date: Sat, 12 Jul 2008 09:40:25 -0400 Subject: [PATCH] Added variable and constant to common.retro module --- retro/modules/common.retro | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/retro/modules/common.retro b/retro/modules/common.retro index 8a0fe7a..2ce3c92 100644 --- a/retro/modules/common.retro +++ b/retro/modules/common.retro @@ -83,3 +83,13 @@ variable : ." compiler # @, 0 # =if t-" type ; then t-s" ' type # compile ; ' ." macro: ." + + +#! ---------------------------------------------------------- +#! Variables and Constants + +: variable create 0 # t-, ; +: constant create last # @, d->xt !, ; + +' variable word: variable +' constant word: constant -- 2.11.4.GIT