fixed tests, added probe

evaldo/builtins.go

@@ -1319,6 +1319,14 @@ var builtins = map[string]*env.Builtin{
 			return arg0
 		},
 	},
+	"probe": { // **
+		Argsn: 1,
+		Doc:   "Prints information about a value.",
+		Fn: func(ps *env.ProgramState, arg0 env.Object, arg1 env.Object, arg2 env.Object, arg3 env.Object, arg4 env.Object) env.Object {
+			fmt.Println(arg0.Inspect(*ps.Idx))
+			return arg0
+		},
+	},
 	"inspect": { // **
 		Argsn: 1,
 		Doc:   "Returs information about a value.",

tests/basics.rye

@@ -379,11 +379,11 @@ section "Doers and evaluators"
 		equal { do { 101 + 101 } } 202
 	}
 
-	group "do-in"
-	mold\nowrap ?do-in
+	group "do\in"
+	mold\nowrap ?do\in
 	{ { context } { block } }
 	{
-		equal { cc: context { x: 101 } do-in cc { x + 101 } } 202
+		equal { cc: context { x: 101 } do\in cc { x + 101 } } 202
 	}
 
 	group "with"
@@ -401,11 +401,11 @@ section "Doers and evaluators"
 		equal { try { 10 + unknown } |type? } 'error 
 	}
 
-	group "do-in\try"
-	mold\nowrap ?do-in\try
+	group "do\in\try"
+	mold\nowrap ?do\in\try
 	{ { context } { block } }
 	{
-		equal { ctx: context { x: 101 } do-in\try ctx { x / 0 } |type? } 'error
+		equal { ctx: context { x: 101 } do\in\try ctx { x / 0 } |type? } 'error
 	}
 
 	group "vals"
@@ -481,4 +481,4 @@ section "Function creating functions"
 
 }
 
-end
+end