Changeset 22338 for v6

Timestamp:

09/24/08 18:49:40 (2 months ago)

Author:

pmurias

Message:

[pugs] evaling code in the embedded smop works

Files:

• v6/smop/src/smop_haskell_ffi.c (modified) (1 diff)

v6/smop/src/smop_haskell_ffi.c

@@ -25 +25 @@
   return SMOP__S1P__RootNamespace;
 }
+SMOP__Object* smop_get_cvar(char* var) {
+  if (strcmp(var,"SMOP__S1P__LexicalScope") == 0) return SMOP__S1P__LexicalScope;
+  else if (strcmp(var,"SMOP__S1P__RootNamespace") == 0) return SMOP__S1P__RootNamespace;
+  printf("unable to fetch %s\n");
+  return SMOP__NATIVE__bool_false;
+}