@@ -936,6 +936,22 @@ variable fd1 $4 0 -1 2 nok? ; +# Will do this when I add GC. I don't want to ever free memory manually in Pez +# again. +( +variable sub-pez +: instantiation + "INSTANTIATION" tests: + 0 new-pez dup sub-pez ! 0= 0 ok? + + "EVALUATION" tests: + "2 2 +" sub-pez @ send-eval 0 ok? + +; +) + + + # Run all the regression subtests "int" puts @@ -970,6 +986,8 @@ testeval testprocess "regexes" puts testregexes +# "instantiation" puts +# testinstantiation # Low-level control structure primitives regress.pez c08a2c5ba9d3ef5fd7027dd81a105d98569ef367 Pete Elmore 1337p337@gmail.com http://github.com/pete/pez/commit/1caebdacb3c62c4f8c16fe34d029ada6ea33a27e 1caebdacb3c62c4f8c16fe34d029ada6ea33a27e 2009-10-31T15:49:06-07:00 2009-10-31T15:49:06-07:00 Comment out that test for now, going to implement GC before exposing Pez to Pez. c729c8b058bc35c4e1a792d5f5832034aaffa047 Pete Elmore 1337p337@gmail.com