From 2e78e94eb894e511e583db03286a3c13b9ecc780 Mon Sep 17 00:00:00 2001 From: Chouser Date: Sat, 7 Feb 2015 10:01:31 -0500 Subject: forth: Finished step 1 --- forth/types.fs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'forth/types.fs') diff --git a/forth/types.fs b/forth/types.fs index 7f6b6ea..2933448 100644 --- a/forth/types.fs +++ b/forth/types.fs @@ -188,6 +188,10 @@ MalType% cell% field MalVector/list deftype* constant MalVector +MalType% + cell% field MalMap/list +deftype* constant MalMap + \ Examples of extending existing protocol methods to existing type MalDefault extend conj ( obj this -- this ) -- cgit v1.2.3