see changelog

This commit is contained in:
Eddie Runia
1999-06-04 23:26:33 +00:00
parent 056ad3ebe2
commit 4e2d7cc0b4
3 changed files with 6 additions and 0 deletions

View File

@@ -1,19 +0,0 @@
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 )

View File

@@ -1,23 +0,0 @@
// quick exit test
function main
local x := 0
do while x < 10
++x
if x == 5
exit
endif
enddo
qout("do exit test",iif(x == 5,"passed","fail"))
for x := 1 to 10
if x == 5
exit
endif
next
qout("for exit test",iif(x == 5,"passed","fail"))
return nil