Problem with goo-intro.pdf page 12 example

Should the example on page 12 of goo-intro.pdf still work in 0.155
(using ,ast-eval, with goo compiled under cygwin)?  

The example is 

    (dc <point> (<any>))
      (dp point-x (<point> => <int>) 0)
      (dp point-y (<point> => <int>) 0)

    (dv p1 (new <point>))

    (dm + (p1|<point> p2|<point> => <point>)
      (new <point>
	point-x (+ (point-x p1) (point-x p2))
	point-y (+ (point-y p1) (point-y p2))))

but for the last expression I get the error
(with minor linebreak and whitespace differences for readability):

ERROR: Method #{Met + ((p1 <point>) (p2 <point>) => <point>)}
   incongruent with generic #{Gen + ((<num> <any>) (<num> <any>) => <num>)}.
Type ",restart N" to restart execution:
1. Return to interpreter level 1.
2. Replace #{Gen + ((<num> <any>) (<num> <any>) => <num>)} with an nul
   generic congruent with #{Met + ((p1 <point>) (p2 <point>) => <point>)}.
3. Return to interpreter level 0.
4. Exit the top-level interpreter.

-- 
T. Kurt Bond, [email protected]


_______________________________________________
Googoogaga mailing list
[email protected]
https://lists.csail.mit.edu/mailman/listinfo/googoogaga