% $Id: IncDesugared.oz,v 1.2 2008/01/18 21:52:50 leavens Exp leavens $ % This is a version of Inc.oz that has been desugared % into the kernel language of chapter 2. declare % (declare is not part of the kernel, but needed by the OPI) Inc = proc {$ N ?Result} local N1 in local One in One = 1 {Number.'+' N One N1} end Result=N1 end end local Temp in local Three in Three=3 {Inc Three Temp} {Browse Temp} end end