see changelog

1999-06-04 23:26:33 +00:00
parent 056ad3ebe2
commit 4e2d7cc0b4
3 changed files with 6 additions and 0 deletions
--- a/harbour/tests/working/codebl.prg
+++ b/harbour/tests/working/codebl.prg
@@ -0,0 +1,19 @@
+Function Main()
+Local nTest
+Local bBlock1 := MakeBlock()
+Local bBlock2 := {|| DoThing( @nTest ), qout( nTest ) }
+
+   eval( bBlock1 )
+   eval( bBlock2 )
+
+Return( NIL )
+
+Function MakeBlock()
+Local nTest
+Return( {|| DoThing( @nTest ), qout( nTest ) } )
+
+Function DoThing( n )
+
+   n := 42
+
+Return( NIL )