Changeset 496 for trunk/orca

Timestamp:

11/08/07 22:09:39 (13 months ago)

Author:

krobillard

Message:

Orca - bind now binds lit-words.

Location:

trunk/orca

Files:

• context.c (modified) (1 diff)
• tests/working/context.r (modified) (1 diff)

trunk/orca/context.c

@@ -527 +527 @@
         if( (it->type == OT_WORD) ||
             (it->type == OT_SETWORD) ||
+            (it->type == OT_LITWORD) ||
             (it->type == OT_GETWORD) )
         {

trunk/orca/tests/working/context.r

@@ -17 +17 @@
 print do blk/7/1
 
+
+; Shows lit-words are bound to context.
+c: context [
+    a: none
+    f: func [val] [set 'a val]
+]
+c/f 5
+print c/a