Changeset 161 for trunk/lingosource/castlib1/alexUtilities.ls

Timestamp:

04/06/08 09:33:26 (4 years ago)

Author:

alex

Message:

implemented version control when commiting

File:

• trunk/lingosource/castlib1/alexUtilities.ls (modified) (1 diff)

trunk/lingosource/castlib1/alexUtilities.ls

@@ -3019 +3019 @@
   return value(intVers)
 end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetMemType me, memref
+  if ilk(memref) <> #member then return #empty
+  return memref.type
+end